用perl实现时间在不同时区间的转换

#!/usr/bin/perl

use Time::Format;
use Date::Parse;
use POSIX qw/tzset/;

$oldtime=$ARGV[0];
$tmptime=str2time("$oldtime");

$ENV{TZ}="$ARGV[1]";
tzset();

$newtime=$time{'yyyy-mm-dd hh:mm:ss tz',$tmptime};
print "$newtime\n";

[root@szpxe ~]# perl converttime.pl "2010-08-25 08:20:35 GMT" "PST8PDT"
2010-08-25 01:20:35 PDT