亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 顯示從之前的某個(gè)日期到今天中間經(jīng)過了哪些天 [打印本頁(yè)]
作者: heidern    時(shí)間: 2010-11-18 16:22
標(biāo)題: 顯示從之前的某個(gè)日期到今天中間經(jīng)過了哪些天
本帖最后由 heidern 于 2010-11-18 16:24 編輯

代碼寫的不好,大家點(diǎn)評(píng)一下
原文地址:http://blog.chinaunix.net/u/12973/showart_2399661.html
  1. #!/usr/local/perl5.12.2/bin/perl
  2. #Author:
  3. #   Hyper Lau <timwalker@gmail.com>
  4. #Website:
  5. #   http://heidern.cublog.cn
  6. #File:
  7. #   unix_time.pl
  8. #Create Date:
  9. #   Wed 17 Nov 2010 04:42:07 PM CST
  10. use strict;
  11. use warnings;
  12. use Time::Local;
  13. $|=1;
  14. my $old_date_Y='2010';
  15. my $old_date_M='09';
  16. my $old_date_D='20';
  17. # when you want to convert time to unixstamp,don't add 1 to month!!
  18. my $old_date_unix=timelocal(0,0,0,$old_date_D,$old_date_M-1,$old_date_Y);
  19. my $old_date=$old_date_Y.$old_date_M.$old_date_D;
  20. my ($now_date_Y,$now_date_M,$now_date_D)=get_now_date();
  21. my $now_date=$now_date_Y.$now_date_M.$now_date_D;
  22. my $now_date_unix=get_now_date_unix();
  23. while ($old_date_unix <= $now_date_unix) {
  24.     print "now date is $now_date , unixstamp is $now_date_unix\n";
  25.     print "old date is $old_date , unixstamp is $old_date_unix\n";
  26.     print "processing ".get_time($old_date_unix)." data...\n";
  27.     <STDIN>;
  28.     print "process ok! \n";
  29.     $old_date_unix+=86400;
  30. }
  31. print "===========ALL PROCESSED!!===========\n";

  33. sub get_time {
  34. # in unixstamp
  35. # out "YYYY-MM-DD HH:mm:SS"
  36.     my ($time)=@_;
  37.     $time=time until (defined($time));
  38.     my @time_format = (localtime($time))[5,4,3,2,1,0];
  39.     $time_format[0] += 1900;
  40.     $time_format[1] += 1;
  41.     foreach $_(@time_format) {
  42.         $_ = sprintf("%02d", $_);
  43.     }
  44.     my $cur_time = "$time_format[0]-$time_format[1]-$time_format[2] $time_format[3]:$time_format[4]:$time_format[5]";
  45.     return($cur_time);
  46. }
  47. sub get_now_date {
  48. # in normal
  49. # out now date(YYYY-MM-DD)
  50.     my @time_format = (localtime())[5,4,3];
  51.     $time_format[0] += 1900;
  52.     $time_format[1] += 1;
  53.     foreach $_(@time_format) {
  54.         $_ = sprintf("%02d", $_);
  55.     }
  56.     return($time_format[0],$time_format[1],$time_format[2]);
  57. }
  58. sub get_now_date_unix {
  59. # in normal
  60. #out unixstamp of now date(YYYY,MM,DD)
  61.     my @time_format = (localtime())[5,4,3];
  62.     $time_format[0] += 1900;
  63. # WARNING!! when you want to convert time to unixstamp,don't add 1 to month!!
  64. #    $time_format[1] += 1;
  65.     foreach $_(@time_format) {
  66.         $_ = sprintf("%02d", $_);
  67.     }
  68.     my $cur_date_unix=timelocal(0,0,0,$time_format[2],$time_format[1],$time_format[0]);
  69.     return($cur_date_unix);
  70. }
復(fù)制代碼




歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2