2007/10/5, Jeff Pang <[EMAIL PROTECTED]>:
> 2007/10/5, [EMAIL PROTECTED]
> <[EMAIL PROTECTED]>:
> > How do I do this in Perl?
>
> Hi,
>
> if ( int(-M "file1.txt") != int(-M "file2.txt") ) {
> # copy the file
> }
>
Forgot to tell you what's -M in perl,from `perldoc perlfunc`:
-M Script start time minus file modification time, in days.
--
Jeff Pang - [EMAIL PROTECTED]
http://www.rwweb.co.cc
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
