Date Modified.

[tar565]

I am looking for a way to change the date modified of a file.

I have copied a file into a new folder and I have the date modified of the original file in a variable $DateModified

($DateModified) = (stat ($file1) )[9];

I now wish to change the modified date for $file2 to $DateModified.

 

[PaulTEG]

If on *nix, use touch, or if on Doze look into cygwin, and *nix type implementation for windows, even the posix tools should be able to accomplish this, they should be available as part of the Resource Kit

HTH
--Paul

cigless ...

 

[PaulTEG]

For what should be a platform independent version, investigate the File::Touch module on

http://search.cpan.org

--Paul

cigless ...

 

[tonykent]

Have a look at this also:

($atime, $mtime) = (stat($file2))[8,9];
print "$file2 date modified is $mtime\n";

($atime, $mtime) = (stat($file1))[8,9];
print "$file1 date modified is $mtime\n";

utime($atime, $mtime, $file2);
$mtime = (stat ($file2) )[9];
print "$file2 date modified is now $mtime\n";

atime and mtime have to be called together.