Perl localtime 学习

最新推荐文章于 2025-07-31 11:12:49 发布

原创最新推荐文章于 2025-07-31 11:12:49 发布 · 440 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl localtime

本文介绍了一个简单的Perl脚本，用于获取并打印从1970年1月1日至现在的总秒数，并展示了如何使用localtime和gmtime函数来获取本地时间和格林威治标准时间。此外，还演示了如何分解时间元素。

#!/usr/bin/perl -w

#from 1970-1-1 to now, total seconds.
my $time = time();
my $local_time = localtime();
my $gmtime = gmtime();

print "time = $time\n";
print "localtime = $local_time\n";
print "   gmtime = $gmtime\n";

($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=localtime(time());
$year += 1900;
$mon += 1;
@wday = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"); #改写表达方式
print "$sec\n";
print "$min\n";
print "$hour\n";
print "$day\n";
print "$mon\n";
print "$year\n";
print "$wday[$wday]\n"; #数组引用的的时候用【】
print "$yday\n";
print "$isdst\n";
print "Formated time = $day/$mon/$year $hour:$min:$sec $wday[$wday]\n";