Community  »  Perl: Allgemeines Forum

Änderungsdatum einer Datei auslesen	Seitenanfang
Hallo... Haben in der Schule eine Aufgabe bekommen, ein Backup-Programm zu schreiben, das Dateien wie Bilder, Word-Dokumente und Excel-Listen, die älter als 5 Tage alt sind, in einen Backup-Ordner speichert. Jetzt meine Frage! Das speichern der Dateien ist nicht die Schwierigkeit. Jedoch bereitet mir das Auslesen des Änderungsdatums einer Datei schwierigkeiten. Wie bekomme ist das hin?? Hier mein schon bestehendes Programm! my $date =`"date /T"`; # das aktuelle Datum wird erfasst chomp ($date); system ("mkdir D:\\Backup\\$date"); # Ordner mit dem aktuellen Datum wird erstellt system ("xcopy C:\\Users\\VWolf\\Test\\* D:\\Backup\\$date /D");# Dateien werden gespeichert Vielen Dank für eure Hilfe! MfG VW... Datum: 05.12.2008-12:30
re: Änderungsdatum einer Datei auslesen	Seitenanfang
my $file = 'C:\path\to\file.txt'; my $days_since_last_modification = -M $file; print "Letzte Aenderung vor $days_since_last_modification Tagen\n"; Datum: 06.12.2008-14:04
re: Änderungsdatum einer Datei auslesen	Seitenanfang
Lesehinweis: perldoc -f -X Datum: 06.12.2008-14:04