perl常用函数积累 （转载）

perl常用函数积累

转载自  http://www.cnblogs.com/starspace/archive/2008/12/17/1356672.html

 

#===============================================================
# get the current date,
# format is: YYYY-MM-DD HH(24):MM:SS
#===============================================================
sub getcurrdate
{
 my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $time) = localtime();
 my $date;

 $date = sprintf("%4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d", 
 $year + 1900, $mon + 1, $mday, $hour, $min, $sec);
 return $date; 
}