#!/usr/bin/perl
#author: zhengsenlin
#date: 2013-03-13
#desc: time piece
use 5.016;
use strict;
use warnings;
use autodie;
use Time::Piece;
my $t = localtime(
1360780381);
my $
real_time = $t->ymd . " " . $t->hms;
say $
real_time;
$ perl test.pl
2013-02-14 02:33:01
阅读(2009) | 评论(0) | 转发(0) |