zlib: remove unused sample programs
[people/sha0/syslinux.git] / now.pl
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;