syslinux/now.pl

   1 #!/usr/bin/perl
   2 # $Id: now.pl,v 1.5 1999/09/17 07:28:45 hpa Exp $
   3 #
   4 # Print the time (possibly the mtime of a file) as a hexadecimal integer
   5 # If more than one file, print the mtime of the *newest* file.
   6 #
   7
   8 undef $now;
   9
  10 foreach $file ( @ARGV ) {
  11     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
  12      $ctime,$blksize,$blocks) = stat($file);
  13     if ( !defined($now) || $now < $mtime ) {
  14         $now = $mtime;
  15     }
  16 }
  17
  18 if ( !defined($now) ) {
  19     $now = time;
  20 }
  21
  22 printf "0x%08x\n", $now;