返回列表 回复 发帖

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

作者: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;
  8. my @monthdays = (0, 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334);
  9. @monthdays = (0, 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335) if ($year % 4 == 0);
  10. my @nowmonthdays = (0, 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334);
  11. @nowmonthdays = (0, 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335) if ($nowyear % 4 == 0);
  12. my $betweendays = ($year - $nowyear) * 365 + ($monthdays[$month] - $nowmonthdays[$nowmonth]) + ($day - $nowday) + int(($year - $nowyear + 1) / 4);
  13. return $nowtime + $betweendays * 86400 + ($hour - $nowhour) * 3600 + ($minute - $nowminute) * 60 - $nowsecond;
  14. }[/font]
复制代码

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独,爱上孤独
                                 他让我看清了自我,还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
返回列表