Dateininfomationen verändern

[Slaughter]

Hallo,

erstmal vielen Dank für die Antworten.

Hier habe ich mal eine funktionerende Lösung zusammengefasst, welche zumindest unter Windows das Änderungsdatum auf den Wert(31.12.2007 00:00:00) zurücksetzt.

#!/d:/perl/bin/perl.exe -w
use strict;
use Time::Local;#Wandlet UNIX-Zeitstempel in LOCALTIME um.
my $datei = 'd:/test.txt';
my $start=timelocal(0, 0, 0, 31, 11, 2007 );
print "Unix: $start \n Zeitstempel: " . localtime($start) . "\n";
#$ergebnis=utime (Lesezeitneu,Schreibzeitneu,@Dateien);
#$ergebnis=utime (Lesezeitneu,Schreibzeitneu,$Datei);
my $erg = utime($start,$start,$datei);

if ($erg == 1){
    print "OK";
}
else {
    print "Fehler";
}

Gruß

Slaughter