Как преобразовать метку времени AIX файла в EPOCH

Question

Я хочу получить формат даты эпохи в файле ниже:

-rw-rw----    1 informix informix   12247577 Jan 21 00:50 shop14_0_Log0001274968.Z

Используя stat для файла, я получаю информацию о дате файла ниже.

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. Если я смогу получить информацию о дате, какую команду я буду использовать, чтобы сделать то, что мне нужно для извлечения.

Answer 1

Вы всегда можете использовать 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);
}