perl 国际时区设置

发表于 2018-02-12 08:36:22 by 月小升

#!/usr/bin/perl
###############################################
## testtime.pl - 设置时区并获得该时区的时间 ###
## by LoRui(i@lorui.com, www.lorui.com) ###
###############################################
use strict;
use warnings;
use POSIX qw(tzset);

#输出HTTP头
print "content-type:text/html;charset=utf-8;\n\n";

#获取服务器默认时间
my $was = localtime;
print "服务器默认时间： $was 
\n";

#设置时区为东八区，中 国标准时间
$ENV{TZ} = 'Asia/Shanghai'; #china 上海

tzset;

#获取中国标准时间
my $now = localtime;
print "中国标准时间：$now
\n";


$ENV{TZ} = 'EST5EDT'; #美国东部

tzset;

#获取中国标准时间
$now = localtime;
print "美国东部标准时间：$now
\n";

content-type:text/html;charset=utf-8;

服务器默认时间： Mon Feb 12 16:33:12 2018
中国标准时间：Mon Feb 12 16:33:12 2018
美国东部标准时间：Mon Feb 12 03:33:12 2018

---

首发地址：月小升博客 – https://java-er.com/blog/perl-time-zone/
无特殊说明，文章均为月小升原创，欢迎转载，转载请注明本文地址，谢谢