Michael Schröpl: Script, daß alle Dateien aus einem Verzeichnis, die älter als 2 Stunden sind löscht

Beitrag lesen

Sorry, doch wie mach ich das jetzt mit den 2 Stunden ??
Irgendwie hilft mir das nicht so ganz...

Hilft das vielleicht?

############################################

Funktion: Änderungsdatum einer Datei

############################################

Parameter: $1 = Pfadname

sub modified ($)
{
  # Parameterwerte zuweisen
  my ($dateiname) = @_;

# Änderungdatum der Datei beschaffen
  my @stats = stat ($dateiname);
  my $file_mod_time = @stats[9];             # Sekunden nach 'epoch' (1.1.1970)

# Ergebnis zurückliefern
  return $file_mod_time;
}