月日期取得問題

HawaiiLeo

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

怎么得到兩個(gè)之間的每個(gè)月的字符串阿？

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";
  }
}

得到我需要的結(jié)果：
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));
   

復(fù)制代碼

[ 本帖最后由 DQP 于 2009-1-13 16:16 編輯 ]

ynchnluiti

原帖由 DQP 于 2009-1-13 16:13 發(fā)表
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 編程中，這種方法很常見：生成數(shù)據(jù)，然后用 filter 之類的 functor 處理，然后打印。

ynchnluiti

原帖由 MMMIX 于 2009-1-13 17:00 發(fā)表
在 functional 編程中，這種方法很常見：生成數(shù)據(jù)，然后用 filter 之類的 functor 處理，然后打印。

嗯。我經(jīng)常還是用c語言里處理數(shù)據(jù)的思維方式

HawaiiLeo

真是謝謝，差距啊，我寫了那么多行代碼。
學(xué)習(xí)了

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 發(fā)表
#!/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 ...

這個(gè)挺好的，我開始想用Date::Calc。