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