顯示從之前的某個(gè)日期到今天中間經(jīng)過了哪些天

heidern

代碼寫的不好,大家點(diǎn)評一下
原文地址: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";
    
32. 
    
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ù)制代碼