localtime的用法

演示:

[root@supersun perl]# ./localtime.pl
时间: 10:32:2
日期: Apr 12,2007
星期: Thursday
一年中的第101天
现在是白天

脚本的内容:

#!/usr/bin/perl -w
#localtime的输出:秒 分 时 日 月 年(相对于1900年的天数) 星期 the day of the year(0..364) 白天(0)/黑夜(非0)
use strict;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime;

$year+=1900;
my @month=qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my @week=qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
print "时间: $hour:$min:$sec\n日期: $month[$mon] $mday,$year\n星期: $week[$wday]\n一年中的第$yday天 现在是",($isdst?"晚上":"白天"),"\n";