Verschiebung von Dateien: Auswahl und anschließende Verschiebung v - #72965 (Allgemeines zu Perl)

sesth

2007-01-09 00:17

User since
2005-02-01
181 Artikel
BenutzerIn
[default_avatar]

Hi Samson,

hier ein Beispiel:

Code (perl): (dl )

#!/usr/bin/perl

use File::Copy;

foreach my $file (glob '*.txt') {
    if (-M $file > 3) {
        move($file, '\\archiv\\' . $file) or warn "$file: $!";
    }
}

Das Skript verschiebt alle Dateien mit der Endung *.txt, die im lokalen Verzeichnis liegen und vor mehr als 3 Tagen zuletzt beschrieben wurden in ein Verzeichnis "archiv" unter der Root. Das sind die "Kriterien".

Gruß
Thomas