perl取得系统日期
时间：2010-06-23 来源：wesudo
($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";
$mon="0$mon"
if ($mon<10);
$mday="0$mday" if ($mday<10);
$year+=1900; print "$year-$mon-$mday";
相关阅读 更多 +
