Re: Perl equivalent of -P option

CPAN::Forum

Image-ExifTool - Re: Perl equivalent of -P option

Image-ExifTool [search.cpan.org] [Kobes search] [View and report bugs] [Ratings 4.7

(6) ]

[AnnoCPAN] [CPAN Tests results] [CPANTS]

Posted on Fri Nov 7 13:22:02 2008 by exiftool in response to 9243 (See the whole thread of 2)

Re: Perl equivalent of -P option

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

Write a response

Service launched on 2nd of February 2005.
Comments, and other submissions on CPAN Forum are Copyright 2005-2007, their respective owners.
Site maintainer is not responsible for content. Privacy Policy

Maintained and hosted by Gabor Szabo at Perl Training Israel