如何选取年份

sunzhiguolu

我看了篇帖子, 内容如下:

请各位高手帮忙一下在两个日期之中  要精确打印出相隔10年之内行  不超出10年 谢谢各位
a.txt日期之间是空格分开的
1999121 20050806
20050806 1999121

19901019 2016515

99121 050806
050806 99121

901019 16515

打印出相隔10年行结果
1999121 20050806
20050806 1999121

99121 050806
050806 99121

这个相隔年数最好能手动调整一下  比如5年之内

能不能把破绽看在前2位数或前4位数比较?如若不好搞,可以把这两类分开进行写的
分类1:前4位类型
分类2:前2位类型
谢谢了

sunzhiguolu

我想用正则表达式匹配出符合条件的年份信息, 好像没有什么思路, 像这种问题该如何处理, 还请大家指点, 谢谢大家...

另外, 帖子中的年份信息我有2点疑惑:

99121 050806
901019 16515

对于 0 开头的年份信息是否就可以判断为 2005
而 9 开头的年份信息就可以判断 1999

数字 1 开头的情况, 可能要分为两种情况: {198842 (属于 2019 还是 1988 当然这个年份是我捏造的), 16 (2016)}

这样理解会不会存在误判的情况, 谢谢大家...

sunzhiguolu

还是简单点, 字符串长度大于某个取值时选取特定长度的字符作为年份信息. 感觉有点乱, 请大家指点...

sunzhiguolu

最后一句话, 这种情况是不是应该直接问 发帖人 如何处理啊??!!

sunzhiguolu

自己顶顶, 等大神解答下...

L_WC

回复 1# sunzhiguolu


    1999121 20050806
20050806 1999121

19901019 2016515

99121 050806
050806 99121

这格式 .... 很随意

sunzhiguolu

回复 6# L_WC
这种情况, 还能处理吗,,, 还请您指点...

   

L_WC

回复 7# sunzhiguolu

把date month去掉  就是year， 不过就像你觉得例子， xxYY, 这个xx过几年 真心不知道是啥了


   

sunzhiguolu

回复 8# L_WC
明白了, 谢谢您指点...

   

L_WC

年份前两位还是有Bug

1. use Date::Calc qw(Delta_YMD);
   
2. 
   
3. my $deltaY = 5;
   
4. 
   
5. while(<DATA>){
   
6.         chomp;
   
7.         s/^\s+//g;
   
8.         next unless length;
   
9.         my ($date1, $date2) = split;
   
10.                 my ($date_1, $date_2) = (&Pro($date1), &Pro($date2));
    
11.                 my ($y, $m, $d);
    
12.                 if($date_1 < $date_2){
    
13.                         ($y, $m, $d) = &DiffDay($date_1, $date_2);
    
14.                         if($y > $deltaY){
    
15.                                 print "$_\n";
    
16.                         }
    
17.                         if($y == $deltaY && $m > 0){
    
18.                                 print "$_\n";
    
19.                         }
    
20.                         if($y == $deltaY && $m == 0 && $d >=0){
    
21.                                 print "$_\n";
    
22.                         }
    
23.                 }
    
24.                 else{
    
25.                         ($y, $m, $d) = &DiffDay($date_2, $date_1);
    
26.                         if($y > $deltaY){
    
27.                                 print "$_\n";
    
28.                         }
    
29.                         if($y == $deltaY && $m > 0){
    
30.                                 print "$_\n";
    
31.                         }
    
32.                         if($y == $deltaY && $m == 0 && $d >=0){
    
33.                                 print "$_\n";
    
34.                         }
    
35.                 }
    
36. }
    
37. 
    
38. sub Pro(){
    
39.                 my $date = shift;
    
40.                 if(length($date) == 5){
    
41.                 if($date =~ /^[0|1]/){
    
42.                         $date = '20'.$date;  ## this is a bug
    
43.                     }
    
44.                 if($date =~ /^[8|9]/){
    
45.                         $date = '19'.$date;  ##
    
46.                 }      
    
47.         }
    
48.         if(length($date) == 6){
    
49.             if($date =~ /^[0|1]/){
    
50.                     $date = '20'.$date;   ##
    
51.             }
    
52.             if($date =~ /^[8|9]/){
    
53.                     $date = '19'.$date;   ##
    
54.             }        
    
55.         }
    
56.         return $date;
    
57. }
    
58. 
    
59. sub DiffDay(){
    
60. 
    
61.        my  ($earlier, $later) = @_;
    
62. 
    
63.        my  $days;
    
64. 
    
65.        my  ($earlierYear, $earlierMonth, $earlierDay) = &ConvertDateFormat($earlier);
    
66. 
    
67.        my  ($laterYear, $laterMonth, $laterDay) = &ConvertDateFormat($later);
    
68. 
    
69.        @days =  Delta_YMD($earlierYear, $earlierMonth, $earlierDay, $laterYear, $laterMonth, $laterDay);
    
70. 
    
71.        return  @days;
    
72. 
    
73. }
    
74. 
    
75. sub ConvertDateFormat(){
    
76. 
    
77.        my  ($date) = @_;
    
78. 
    
79.        my  ($year, $month, $day) = ();
    
80. 
    
81.        if($date =~  m/(\d{4})(\d+)(\d{2})/g){
    
82. 
    
83.               ($year, $month, $day) = ($1, $2, $3);
    
84. 
    
85.        }
    
86. 
    
87.        $month =~  s/0?(\d)/$1/g;
    
88. 
    
89.        return  ($year, $month, $day);
    
90. 
    
91. }
    
92. 
    
93. 
    
94. __DATA__
    
95. 1999121 20050806
    
96. 20050806 1999121
    
97. 
    
98. 19901019 2016515
    
99. 
    
100. 99121 050806
     
101. 050806 99121
     
102. 
     
103. 901019 16515

复制代码