(?: [-+] \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 => [] };
}
}