You can get the last modified time of a file using stat. But I don't know how you expect to get it using a program that is not running.

Re^2: Last modified time

Fletch

created: 2006-04-05 09:37:40

perlmonks

• reply
• node
• thread
• author

• node
• author
• thread

prlmnks

• node
• thread
• author

You've obviously never read any of Win's other gems . . .

stat ought to work. $0 should provide the argument for the current running program. If that doesn't work, look at perlport and perlwin32 to see what changes you need.

For some other program, just use its path/filename as argument to stat.

$modifytime = (stat($filename))[9];
print $modifytime;

Re^2: Last modified time

Win

created: 2006-04-05 10:06:36

perlmonks

• reply
• node
• thread
• author

• node
• author
• thread

prlmnks

• node
• thread
• author

It returns the following:

114424****

I can't make head or tail of it. Each star represents a number. I didn't give the full number because I don't like to when I'm not sure what it means.

Re^3: Last modified time

cdarke

created: 2006-04-05 10:21:49

perlmonks

• reply
• node
• thread
• author

• node
• author
• thread

prlmnks

• node
• thread
• author

stat returns the modify time in "number of seconds since epoc", so you get a large number. You can convert this to a readable format using localtime, for example:

my $mod = (stat $0)[9];
print scalar localtime($mod);

You can create your own date formats by getting the local time in "broken-down" format, see perldoc -f localtime, or using POSIX::strftime.

Re^4: Last modified time

bart

created: 2006-04-05 10:23:43

perlmonks

• reply
• node
• thread
• author

• node
• author
• thread

prlmnks

• node
• thread
• author

See also time, which returns the current time ("now") in the same format.