perl 国际时区设置

#!/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


This entry was posted in Linux and tagged , . Bookmark the permalink.
月小升QQ 2651044202, 技术交流QQ群 178491360
首发地址:月小升博客https://java-er.com/blog/perl-time-zone/
无特殊说明,文章均为月小升原创,欢迎转载,转载请注明本文地址,谢谢
您的评论是我写作的动力

发表评论

电子邮件地址不会被公开。 必填项已用 * 标注

*

*

  

您可以使用这些 HTML 标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre lang="" line="" escaped="" highlight="">

About Me

静水流深,水滴石穿