#!/usr/bin/perl
use 5.010;
my $now = time;
my $gnow = gmtime;
my $lnow = localtime;
my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime $now;
say "$now";
say "$gnow";
say "$lnow";
say "second:$sec";
say "minute:$min";
say "hour:$hour";
say "day:$day";
say "mon:$mon";
say "year:$year";
say "wday:$wday";
say "yday:$yday";
say "isdst:$isdst";
# ./time.pl
1318301827
Tue Oct 11 02:57:07 2011
Tue Oct 11 10:57:07 2011
second:7
minute:57
hour:10
day:11
mon:9
year:111
wday:2
yday:283
isdst:0
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |