Peter: Datum aller Dateien in Verzeichnis auslesen

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

  1. 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