How does a perl script get the last-modified date of a file?

[Rich Pasco]

The PERL statement I use to open a text file looks like this:
open(HANDLE, $filename);
Now how can I get the "last modified" date of that file?
I need a solution that works the same under Windows or Unix.

- Rich

 

[Gunnar Hjalmarsson]

The PERL statement I use to open a text file looks like this:
open(HANDLE, $filename);
Now how can I get the "last modified" date of that file?
I need a solution that works the same under Windows or Unix.

my $date = localtime( (stat HANDLE)[9] );

http://www.perldoc.com/perl5.8.0/pod/func/stat.html

 

[Rich Pasco]

The PERL statement I use to open a text file looks like this:
open(HANDLE, $filename);
Now how can I get the "last modified" date of that file?
I need a solution that works the same under Windows or Unix.

my $date = localtime( (stat HANDLE)[9] );

http://www.perldoc.com/perl5.8.0/pod/func/stat.html

Perfect, thanks!

- Rich