我想在以下文件上获取纪元日期格式:
-rw-rw---- 1 informix informix 12247577 Jan 21 00:50 shop14_0_Log0001274968.Z
使用文件的统计信息,我获得以下文件日期信息。
stat shop14_0_Log0001274968.Z
File: shop14_0_Log0001274968.Z
Size: 12247577 Blocks: 23928 IO Block: 4096 regular file
Device: 800000640000000dh/9223372466351505421d Inode: 410 Links: 1
Access: (0660/-rw-rw----) Uid: (66001/informix) Gid: ( 3000/informix)
Access: 2020-01-21 00:50:07.000000000 +0200
Modify: 2020-01-21 00:50:06.000000000 +0200
Change: 2020-01-21 00:50:08.000000000 +0200
Birth: -
是否有更好的命令来提取文件上的日期信息,并使用该信息将其转换为AIX上的时代。如果我可以获得日期信息,将使用什么命令来执行需要检索的操作。
您可以始终使用perl,例如:
#!/usr/bin/perl -w
use strict;
sub ftimestamp {
my $fname= $_[0];
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($fname);
printf ("%-20s: atime=%d mtime=%d ctime=%d\n", $fname, $atime, $mtime, $ctime);
}
my $arg;
foreach $arg (@ARGV) {
ftimestamp ($arg);
}