Re: Perl equivalent of -P option

Image-ExifTool

Posted on 2008-11-07 11:22:02-08 by exiftool in response to 9243

It's not so pretty, but here's how you do it in a Perl script:

my $modTime = $^T - (-M $file) * (24 * 3600); my $accTime = $^T - (-A $file) * (24 * 3600); [ ... process file here ... ] utime($accTime, $modTime, $file);

- Phil

Direct Responses: Write a response

Perl Weekly newsletter
A free weekly newsletter for people who are busy to read all the blogs. click here to check it out.