LXR syslinux/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
   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