diff options
Diffstat (limited to 'now.pl')
-rw-r--r-- | now.pl | 16 |
1 files changed, 11 insertions, 5 deletions
@@ -1,15 +1,21 @@ #!/usr/bin/perl -#ident "$Id$" +# $Id$ # # Print the time (possibly the mtime of a file) as a hexadecimal integer +# If more than one file, print the mtime of the *newest* file. # -($file) = @ARGV; -if ( defined($file) ) { +undef $now; + +foreach $file ( @ARGV ) { ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime, $ctime,$blksize,$blocks) = stat($file); - $now = $mtime; -} else { + if ( !defined($now) || $now < $mtime ) { + $now = $mtime; + } +} + +if ( !defined($now) ) { $now = time; } |