perl 国际时区设置

2018-02-24 09:58:09来源:https://java-er.com/blog/perl-time-zone/作者:月小升博客人点击

分享
#!/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 <br />/n";

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

#获取中国标准时间
my $now = localtime;
print "中国标准时间:$now<br />/n";


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

#获取中国标准时间
$now = localtime;
print "美国东部标准时间:$now<br />/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


如果你是一名技术人员可加我QQ 2651-0442-02,如果你是java技术人还可以加入QQ群 1784-9136-0


首发地址:月小升博客 –

无特殊说明,文章均为月小升原创,欢迎转载,转载请注明本文地址,谢谢


最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台