Files jünger als 15 prüfen - #183010 (Allgemeines zu Perl)

Linuxer

2015-11-20 20:18

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Auf welchem Betriebssystem bewegst Du Dich dafür?

Edit: Auf Linux-Shell könnte man beispielsweise so ermitteln, ob es Dateien jünger als 15 Minuten gibt:

Code: (dl )

1
2
3

# /var/log durch Dein Verzeichnis ersetzen.
# -maxdepth 1 : Suche erfolgt nur direkt im Verzeichnis, keine Suche in Unterverzeichnisse
find /var/log/ -maxdepth 1 -type f -cmin -15 2>/dev/null | wc -l

Mit Perl kann man es mit CPAN:

File::Find::Rule machen. Das muss wahrscheinlich noch installiert werden.

Code (perl): (dl )

my $directory = '/var/log';
my $timelimit = time - 60 * 15;

my @files = File::Find::Rule->file()
                            ->mtime( ">$timelimit" )
                            ->in( $directory );

Last edited: 2015-11-20 21:03:46 +0100 (CET)

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!