在perl中如何获取当前的日期和时间？

[szsailing]

rt
希望能给出一个例子参考。

[minecz]

localtime()
time()
自己找吧;)

[yourway]

($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst)=localtime(time());
$year+=1900;
$month+=1;

[liu22]

($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday) = (localtime(time));
$sec = ($sec < 10)? "0$sec":$sec;
$min = ($min < 10)? "0$min":$min;
$hour = ($hour < 10)? "0$hour":$hour;
$day = ($day < 10)? "0$day":$day;
$mon = ($mon < 9)? "0".($mon+1):($mon+1);
$year += 1900;

然后组合，比如：
$now = "$year-$mon-$day $hour:$min:$sec";

这种方法比较常用！