Thread Files von sysdate -1 herausfinden (8 answers)
Opened by walu at 2012-10-25 15:30

GwenDragon
 2012-10-25 20:24
#162849 #162849
User since
2005-01-17
14787 Artikel
Admin1
[Homepage]
user image
Tja, - 1 Tag ist aber eben nicht gestern, mein Lieber.
Da hat sich walu etwas missverständlich geäußert.

Ungestet:
Code (perl): (dl )
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

use DateTime;
use File::Find;


# gefundene Dateinamen
my @found;    
find (\&found, $dir);

# Gestern 00:00:00 als Unixepoche (in Sekunden)
my $yesterepoch = DateTime->today->add(days => -1)->epoch;

sub found {
   my $fn = $File::Find::name;
   my $stat;
   if ( -f $fn 
        # kein *.gz
        && $fn !~ /\.gz$/
        # gestern 00:00:00
        && ($stat = (stat($fn))[10]) >= $yesterepoch 
        # gestern 23:59:59
        &&  $stat <= $yesterepoch+86400-1 
      )              
   {
      push @found,$fn;                  # gefunden, dann abs ins Array
   }
}

print join "\n",@found;
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread Files von sysdate -1 herausfinden