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 7undef $now; 8 9foreach $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 17if ( !defined($now) ) { 18 $now = time; 19} 20 21printf "0x%08x\n", $now; 22