Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (17 sloc) 445 Bytes
#!/usr/bin/perl
#
# 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.
#
undef $now;
foreach $file ( @ARGV ) {
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
$ctime,$blksize,$blocks) = stat($file);
if ( !defined($now) || $now < $mtime ) {
$now = $mtime;
}
}
if ( !defined($now) ) {
$now = time;
}
printf "0x%08x\n", $now;