mkinitrd-6_3_1/isolinux/now.pl

#!/usr/bin/perl
# $Id: now.pl,v 1.1 2007-09-01 22:44:05 niro Exp $
#
# 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;
1	niro	532	#!/usr/bin/perl
2			# $Id: now.pl,v 1.1 2007-09-01 22:44:05 niro 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;