亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

perl獲取日期與時間的實例代碼

 更新時間:2013年02月09日 23:29:32   作者:  
perl獲取日期與時間的例子,供大家學(xué)習參考

注意:localtime獲取的年份是相對于1900的偏移,需要加上1900,而localtime獲取的month范圍是0-11,需要加1。

復(fù)制代碼 代碼如下:

#!/usr/bin/perl
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime();   
$year += 1900;   
$mon++;
my $date = "$year-$mon-$day";   
print $date, "\n";

相關(guān)文章

最新評論