月日期取得问题

HawaiiLeo

$beg_date='20080101010101'
$end_date='20090201235959'

怎么得到两个之间的每个月的字符串阿？

ly5066113

$ perl -e '$beg_date="20080101010101";print substr($beg_date,4,2)'
01

HawaiiLeo

我的方法是：
my $next_month = &_get_next_month($beg_date);
while($next_month le substr($end_date))
{
  print "$next_month";
  $next_month = &_get_next_month($beg_date);
}

sub _get_next_month()
{
  my ($date) = @_;
  $date =~ /^(\d{4})(\d{2}).*$/;
  my ($year, $month) = ($1, $2);

  if($month + 1 > 12)
  {
     $year += 1;
     return "${year}01";
  }
  else
  {
     $month = sprintf("%02d", $month + 1);
     return "$year$month";
  }
}

得到我需要的结果：
200802
200803
200804
200805
200806
200807
200808
200809
200810
200811
200812
200901
200902

DQP

1. 
   
2. my $beg_date='20080101010101';
   
3. my $end_date='20090201235959';
   
4. print $_, "\n" for grep {substr($_, 4, 2) <= 12} (substr($beg_date, 0, 6)+1..substr($end_date, 0, 6));
   

复制代码

[ 本帖最后由 DQP 于 2009-1-13 16:16 编辑 ]

ynchnluiti

原帖由 DQP 于 2009-1-13 16:13 发表
my $beg_date='20080101010101';
my $end_date='20090201235959';
print $_, "\n" for grep {substr($_, 4, 2) <= 12} (substr($beg_date, 0, 6)+1..substr($end_date, 0, 6));

很高啊

MMMIX

在 functional 编程中，这种方法很常见：生成数据，然后用 filter 之类的 functor 处理，然后打印。

ynchnluiti

原帖由 MMMIX 于 2009-1-13 17:00 发表
在 functional 编程中，这种方法很常见：生成数据，然后用 filter 之类的 functor 处理，然后打印。

嗯。我经常还是用c语言里处理数据的思维方式

HawaiiLeo

真是谢谢，差距啊，我写了那么多行代码。
学习了

cobrawgl

#!/usr/bin/perl

use strict;
use warnings;

use Class::Date;
$Class::Date::DATE_FORMAT="%Y%m";

my $beg_date='20080101010101';
my $end_date='20090201235959';

my $d1 = Class::Date->new(date_conv($beg_date));
my $d2 = Class::Date->new(date_conv($end_date));

while ($d1 < $d2) {
        print $d1, "\n";     
        $d1 += '1M';
}


#------- Utils ------------
sub date_conv {
        $_ = shift;

        return [/(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/];
}


------- 更长的 :)  ---------------

[ 本帖最后由 cobrawgl 于 2009-1-13 19:35 编辑 ]

ynchnluiti

原帖由 cobrawgl 于 2009-1-13 19:34 发表
#!/usr/bin/perl

use strict;
use warnings;

use Class:ate;
$Class:ate:ATE_FORMAT="%Y%m";

my $beg_date='20080101010101';
my $end_date='20090201235959';

my $d1 = Class:ate->new ...

这个挺好的，我开始想用Date::Calc。