Dateien ändern, nicht aber das Datum

[Hans P.]

Hallo,

Ich möchte gerne in einem Verzeichnis von mir in den Dateien etwas ändern, ohne das Datum der letzten Änderung zu ändern.

ich hätte eigentlich gedacht, daß ich das so machen kann:

--------------------------schnipp------------------------

foreach $members (@members) {
my($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat ("$MembersPath/$members");
open (CHECKPROFILE, "$MembersPath/$members");
@foundprofile = <CHECKPROFILE>;
close (CHECKPROFILE);
@memline = split (/|/, $foundprofile[0]);
open (MEMBERFILE2, ">$MembersPath/$members")  || die ("Konnte Datei nicht öffnen  Reason: $!\n");
print MEMBERFILE2 ("$memline[0]|$memline[1]|$memline[2]|$memline[3]|$memline[4]|$memline[5]|$memline[6]|$memline[7]|$memline[8]|$memline[9]|$memline[10]|$memline[11]|||\n");
close (MEMBERFILE2);
utime($mtime, $mtime , "$MembersPath/$members");
} #foreach

---------------------------------schnapp---------------------------

Das klappt auch ganz hervorragend, utime will nicht funktionieren und daher zeigt mein FTP-Programm mir trotzdem für alle Dateien des Verzeichnisses das Datum und die Uhrzeit des Programdurchlaufes an :-(

Wer kann mir mal auf die Sprünge helfen?

Hans