Nur aktuelle Dateien aus Verzeichnis bearbeiten

[Klaus]

http://de.selfhtml.org/perl/funktionen/dateiverwaltung.htm#dateitest oder http://de.selfhtml.org/perl/funktionen/dateiverwaltung.htm#stat

Hi Struppi,
soweit war ich schon. Ich hab es mit -M versucht. Das ging nicht. So sieht mein Code aus:

  
#!/usr/local/bin/perl  
$dir = '/daten/beitraege';  
  
   opendir(DIR, $dir);  
   my @Eintraege = readdir(DIR);  
  
   chdir("/pr/ibr/daten/beitraege/");  
   my @Grosse_Dateien = grep(-M lt "0.8", @Eintraege);  
   while (defined($filename = readdir(DIR)))  
   {  
   @Daten_alt = ("");  
   $Daten_neu = "";  
  foreach("/pr/ibr/daten/beitraege/$filename" eq "@Grosse_Dateien")  
  {  
 .  
 .  
   }  
   }  
  close(PASSWD);