perl常用函数积累

#===============================================================

# 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;

}