Perlについての質問箱 39箱目

Perlについての質問箱 39箱目 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

300:デフォルトの名無しさん
 09/03/10 22:07:54 
RSSから指定期間の祝日を取得するスクリプトを書いてる。 
ある程度の日付の範囲をもって複数の祝日を取得するときは問題なく動作するんだけど、ある特定の祝日を一つに絞って実行すると上手く動作しない。 
printをあちこちかませて調べてるんだけどどうも$keyが上手く取れてない様子。通常はURLが入るんだけどNGの場合はXMLのタグ名がなぜか入ってきてNGになってしまう。 
 
上手く動かすには何が足らないんだろ？ 
use LWP::UserAgent; 
use XML::Simple; 
&Holiday ("2009-02-01", "2009-04-01"); # OK 
&Holiday ("2009-03-20", "2009-03-21"); # NG 
sub Holiday { 
    my $feed_base = 'http://www.google.com/calendar/feeds/japanese@holiday.calendar.google.com/public/full'; 
    my $sdate = $_[0]; # この日を含む開始日 
    my $edate = $_[1]; # この日を含まない終了日 
    my $query = "start-min=${sdate}&start-max=${edate}"; 
    my $feed_url = $feed_base . '?' . $query; 
    my $ua = LWP::UserAgent->new; 
    my $res = $ua->get( $feed_url ); 
    if( $res->is_success ){ 
        my $xml_parser = XML::Simple->new(); 
        $XML::Simple::PREFERRED_PARSER = 'XML::Parser'; 
        my $holidays_data = $xml_parser->XMLin( $res->content ); 
        foreach my $key ( keys %{ $holidays_data->{ entry } } ){ 
            #print "$key\n"; 
            my $holiday_day  = $holidays_data->{ 'entry' }{ "$key" }{ 'gd:when' }{ startTime }; 
            print $holiday_day , "\n"; 
        } 
    }else{ 
        die $res->status_line; 
    } 
}

次ページ