Datum aller Dateien in Verzeichnis auslesen
Peter
- perl
Hi,
mit diesem Code ermittle ich das Datum einer Datei
#!/usr/bin/perl
use POSIX qw(strftime);
$dir = "/daten/text/7770.txt";
my @Info = stat($dir);
my $time = "$Info[9]\n";
my $datei_datum = strftime("%d.%m.%Y",localtime($time));
my $datum_aktuell = strftime("%d.%m.%Y",localtime(time));
print "$datei_datum\n";
soweit so gut. Nur weiss ich nicht, wie ich jetzt das Datum für alle Dateien in einem Verzeichnis ermitteln kann.
Kann mir da jemand helfen?
Gruß
Peter
Moin, moin!
In der SELFHTML-Doku zum Perl-Befehl readdir findest Du ein Beispiel, bei dem in einer Schleife alle Dateien in einem Verzeichnis abgearbeitet werden.
Alles klar?
Norbert