From 2d3da03e893d0c59e236224f049215fab8e81e8e Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Wed, 19 Aug 2020 22:47:56 +0100 Subject: [PATCH] expire-iso8601: Use date(1) -davenant:~> time perl -e 'use DateTime::Format::Strptime;' real 0m1.269s user 0m1.175s sys 0m0.093s Signed-off-by: Ian Jackson --- scripts/expire-iso8601 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/scripts/expire-iso8601 b/scripts/expire-iso8601 index 552b258..1ef843b 100755 --- a/scripts/expire-iso8601 +++ b/scripts/expire-iso8601 @@ -71,18 +71,18 @@ sub scan () { (?: [-+] \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); -# $!=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 => [] }; } } -- 2.30.2