#!/usr/bin/perl -w
#            aufgabe4.pl
#            Alle Dateien eines Verzeichnisses  die aelter als sechs Monate sind werden in das Verzeichnis old verschoben.
#
#            Version 1.02 vom 23.06.05
#
use File::Copy;

print "\n\n\nAnstatt \\ bitte / schreiben.\n\nVerzeichnis: ";chomp ($ver = <STDIN>);

@files = <$ver/*>;

for ($n = 0;$n <= $#files;$n++) {
  print "\n\nMit der Datei $files[$n] wird jetzt gearbeitet.\n";
  sleep 1;
  if (-M $files[$n] > 1) {
    if (! -d "$ver/old") {
      mkdir "$ver/old";
      print "\nOrdner old wurde erstellt.\n";
      sleep 1;
    }
    [B]copy '$files[$n]', '$ver/old';[/B]
    print "Die Datei $files[$n] wird kopiert nach $ver/old.\n";
    sleep 1;
  }
  else {
    print "Datei: $files[$n] ist noch aktuell.\n";
    sleep 1;
  }
}

print "\n\n\nBeenden mit beliebiger Taste.";<STDIN>;