You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
445 B
21 lines
445 B
#!/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;
|
|
|