Files von sysdate -1 herausfinden - #162840 (Allgemeines zu Perl)

Muffi

2012-10-25 16:14

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

ungetestet in etwa so:

Code (perl): (dl )

use Class::Date 'date';

use constant CTIME => 10;

for my $filepath (glob('/foo/*')) {
    next if $filepath =~ /\.gz$/;
    next if date((stat($filepath))[CTIME])->truncate eq (date(time) - '1D')->truncate;

    print "$filepath\n";
}

1 + 1 = 10