?参考 ?http://blog.chinaunix.net/uid-10697776-id-3084575.html
http://wyllife.blog.163.com/blog/static/41163901201142510143750/
perl转换时间戳?
perl -MPOSIX? -e 'print strftime("%Y-%m-%d %H:%M:%Sn",localtime() );'
#!/usr/bin/perl
use Time::Format;
use Date::Parse;
use POSIX qw/tzset/;
use Time::Local;
$ENV{TZ}="EST5EDT";#EST5EDT AST4ADT? #设置当前的时区为美国的东部时间的时区
tzset();
$time = time;?
print $time;
print "n";
my $newtime = $time{'yyyymmdd? hh:mm',$time};? #把时间戳转换成yyyymmdd? hh:mm 的形式
print $newtime;
?$b = str2time("$newtime GMT");?????????????????????????????? #把日期时间转换成时间戳
?print $b;
?print $c =($time -$b)/3600;
$t2 = $time{'yyyymmdd? hh:mm',time};
$ENV{TZ}="WAUST-8WAUDT"; #Eastern United States,Colombia
tzset();
$time1 = str2time("$t2 EST5EDT");
print my $newtime1 = $time{'yyyymmdd? hh:mm',$time1+7*3600}."n";
===========================================================
1.use Time::Format;? #该模块用于对时间戳进行转换
? use Time::Local;? #获取时间戳,一般不需要单独安装
? $time1 = time; #获取系统时间戳
? print $time1;
? print "n";
? my $newtime =?$time{'yyyymmdd? hh:mm',$time1};? #把时间戳$time1转换成yyyymmdd? hh:mm 的形式??
? print $newtime;
? $b =?str2time("$newtime GMT");?????????????????????????????? #把GMT的日期时间转换成当前时区的时间戳
?print "n";
?print $time{'yyyymmdd?? hh:mm',$b};???????????????????? #格式化后输出