怎么获取两个年份之间的所有年呢？

alunfirst

a=19980101
b=20020101

a和b之间的年份包括：
98
99
00
01

该怎么的到以上数据呢？

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($a, $b) = qw /19980101 20020101/;
   
6. my $aa = substr ($a, 0, 4);
   
7. my $bb = substr ($b, 0, 4);
   
8. 
   
9. while ($aa < $bb){
   
10.     print substr ($aa++, 2), "\n";
    
11. }
    

复制代码