File::stat 模块中 stat function 获取的mtime 值1339381143, 这个值怎么转化为正常的

609854

File::stat 模块中 stat function 获取的mtime 值1339381143, 这个值怎么转化为正常的时间信息，还有这个值是怎么计算得来到

kk861123

1. print scalar(localtime(1339381143)),"\n";

复制代码

具体请参考 perldoc -f localtime;

sellie

之前问过近似的问题, 有个衍生品, 或许正好你可以用的上.

#########################################
#Command line example:
#getdate.pl 1332127479
#########################################
use strict;
use warnings;
use English qw( -no_match_vars );

my $tag = shift @ARGV;

print getTime($tag)->{'full'}, "\n";

sub getTime
    {
        my $time = shift || time();
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);

        $year += 1900;
        $mon ++;

        $min  = '0'.$min  if length($min)  < 2;
        $sec  = '0'.$sec  if length($sec)  < 2;
        $mon  = '0'.$mon  if length($mon)  < 2;
        $mday = '0'.$mday if length($mday) < 2;
        $hour = '0'.$hour if length($hour) < 2;

        my $weekday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];

        return { 'second' => $sec,
                 'minute' => $min,
                 'hour'   => $hour,
                 'day'    => $mday,
                 'month'  => $mon,
                 'year'   => $year,
                 'weekNo' => $wday,
                 'wday'   => $weekday,
                 'yday'   => $yday,
                 'date'   => "$mon/$mday/$year",
                 'full'   => "$mon/$mday/$year $hourminsec"
              };
    }