[转帖]得到perl原始时间格式的函数

cnangel

作者:bigjim
得到perl原始时间格式的函数如下代码:

1. [font=宋体]sub gettime
2. {#取得指定时间Unix时间戳, CopyRight 94Cool.Net BigJim
3. my ($year, $month, $day, $hour, $minute) = @_;
4. my $nowtime = time;
5. my ($nowsecond, $nowminute, $nowhour, $nowday, $nowmonth, $nowyear, undef) = localtime($nowtime);
6. $nowmonth++;
7. $nowyear += 1900;
9. my @monthdays = (0, 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334);
10. @monthdays = (0, 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335) if ($year % 4 == 0);
11. my @nowmonthdays = (0, 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334);
12. @nowmonthdays = (0, 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335) if ($nowyear % 4 == 0);
14. my $betweendays = ($year - $nowyear) * 365 + ($monthdays[$month] - $nowmonthdays[$nowmonth]) + ($day - $nowday) + int(($year - $nowyear + 1) / 4);
15. return $nowtime + $betweendays * 86400 + ($hour - $nowhour) * 3600 + ($minute - $nowminute) * 60 - $nowsecond;
16. }[/font]

复制代码