-davenant:~> time perl -e 'use DateTime::Format::Strptime;'
real 0m1.269s
user 0m1.175s
sys 0m0.093s
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
(?: [-+] \d{1,2} \:? \d\d )? )? /x) {
print STDERR "ignoring $f\n";
}
(?: [-+] \d{1,2} \:? \d\d )? )? /x) {
print STDERR "ignoring $f\n";
}
- my @t = Date::Parse::strptime($f);
- @t = map { $_ // 0 } @t;
- my $t = mktime @t;
+# my @t = Date::Parse::strptime($f);
+# @t = map { $_ // 0 } @t;
+# my $t = mktime @t;
# m
# my $t = $strp->parse_datetime($f);
# $t = $t->epoch();
# my @t = Date::Parse::strptime($f);
#print STDERR Dumper(\@t);
# my $t = mktime(@t);
# m
# my $t = $strp->parse_datetime($f);
# $t = $t->epoch();
# my @t = Date::Parse::strptime($f);
#print STDERR Dumper(\@t);
# my $t = mktime(@t);
-# $!=0; $?=0; my $t = `date -d '$&' +%s`;
-# die "date(!) failed on $&: $? $!" if $! || $?;
-# chomp $t or confess;
+ $!=0; $?=0; my $t = `date -d '$&' +%s`;
+ die "date(!) failed on $&: $? $!" if $! || $?;
+ chomp $t or confess;
push @files, { F => $f, T => $t, U => [] };
}
}
push @files, { F => $f, T => $t, U => [] };
}
}