/usr/share/doc/libtime-moment-perl/examples/strftime.pl is in libtime-moment-perl 0.41-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | #!/usr/bin/perl
use strict;
use warnings;
use Time::Moment;
my $tm = Time::Moment->now;
sub output {
my ($type, $basic, $extended) = @_;
print "\nCombinations of $type date and time of day:\n";
print "\nBasic format: Example:\n";
foreach my $format (@$basic) {
printf "%-22s %s\n", $format, $tm->strftime($format);
}
print "\nExtended format: Example:\n";
foreach my $format (@$extended) {
printf "%-22s %s\n", $format, $tm->strftime($format);
}
}
{
my @basic = qw(
%Y%m%dT%H%M%S%z
%Y%m%dT%H%M%S%f%z
%Y%m%dT%H%M%z
);
my @extended = qw(
%Y-%m-%dT%H:%M:%S%Z
%Y-%m-%dT%H:%M:%S%f%Z
%Y-%m-%dT%H:%M%Z
);
output('calendar', \@basic, \@extended);
}
{
my @basic = qw(
%Y%jT%H%M%S%z
%Y%jT%H%M%S%f%z
%Y%jT%H%M%z
);
my @extended = qw(
%Y-%jT%H:%M:%S%Z
%Y-%jT%H:%M:%S%f%Z
%Y-%jT%H:%M%Z
);
output('ordinal', \@basic, \@extended);
}
{
my @basic = qw(
%GW%V%uT%H%M%S%z
%GW%V%uT%H%M%S%f%z
%GW%V%uT%H%M%z
);
my @extended = qw(
%G-W%V-%uT%H:%M:%S%Z
%G-W%V-%uT%H:%M:%S%f%Z
%G-W%V-%uT%H:%M%Z
);
output('week', \@basic, \@extended);
}
|