perl獲取日期與時間的實例代碼
更新時間:2013年02月09日 23:29:32 作者:
perl獲取日期與時間的例子,供大家學(xué)習(xí)參考
注意: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)文章
使用 use re debug 查看正則表達(dá)式的匹配過程
使用 use re 'debug' 查看正則表達(dá)式的匹配過程,參見如下的代碼2013-02-02
perl數(shù)組的多數(shù)字下標(biāo)示例代碼
perl數(shù)組中正常的下標(biāo)運算,想必大家都比較熟悉,這里不作說明。本文想說的是perl數(shù)組下標(biāo)的多數(shù)字取值,可以極大的方便數(shù)組的操作2013-02-02

