不正狼 发表于 2017-5-18 10:33:34

Perl取得系统日期

($sec,$min,$hour,$mday,$mon,$year)=localtime(time);
$mon++;
$mon="0$mon"
if ($mon<10);
$mday="0$mday"
if ($mday<10);
$year+=1900;
print "$year-$mon-$mday";
页: [1]
查看完整版本: Perl取得系统日期