Greg Hartman | 76d05dc | 2016-11-23 15:51:27 -0800 | [diff] [blame] | 1 | #!/usr/bin/perl |
2 | # | ||||
3 | # Print the time (possibly the mtime of a file) as a hexadecimal integer | ||||
4 | # If more than one file, print the mtime of the *newest* file. | ||||
5 | # | ||||
6 | |||||
7 | undef $now; | ||||
8 | |||||
9 | foreach $file ( @ARGV ) { | ||||
10 | ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime, | ||||
11 | $ctime,$blksize,$blocks) = stat($file); | ||||
12 | if ( !defined($now) || $now < $mtime ) { | ||||
13 | $now = $mtime; | ||||
14 | } | ||||
15 | } | ||||
16 | |||||
17 | if ( !defined($now) ) { | ||||
18 | $now = time; | ||||
19 | } | ||||
20 | |||||
21 | printf "0x%08x\n", $now; |