sub getDate {
my $DATE = "0";
($day, $month, $year, $hour, $min, $sec) = (localtime)[3, 4, 5, 2, 1, 0];
# Reformat numbers to have two digits
$day = sprintf ( "%.2d", $day % 100 );
$month++;
$month = sprintf ( "%.2d", ($month++) % 100 );
$hour = sprintf ( "%.2d", $hour % 100 );
$min = sprintf ( "%.2d", $min % 100 );
$sec = sprintf ( "%.2d", $sec % 100 );
# Fix the year
$year = $year + 1900;
# Format the date.
$DATE = "$day$month$year$hour$min$sec";
# Return the date
return $DATE;
}
欢迎使用CSDN-markdown编辑器
最新推荐文章于 2022-04-30 09:07:24 发布