次のコード (perl) がありますが、発生イベントを抽出する方法がわかりません。
use Net::Google::Calendar;
my @cals = $parent->get_calendars;
for my $cal_selected (@cals) {
printf "CALENDAR: %s\n", $cal_selected->title;
$parent->set_calendar( $cal_selected );
for ( $parent->get_events() ) {
my $title = $_->title || "";
my ($start, $end) = $_->when();
print "title: $title, start: $start, end: $end \n";
}
}
そのため、イベントの 1 つに「開始」変数がありますが、4 日ごとにジャンプします。現在の出力には表示されません。
出力は次のようになります。
title: "Event 1", start: 2012-08-06T00:00:00, end: 2012-08-13T00:00:00
title: "Event 2", start: 2012-07-05T00:00:00, end: 2012-07-05T00:00:00
「Event1」の開始日と終了日は非常に明確で、6 日です。
「イベント 2」が同じ日にあることを確認しますが、発生は 2012-07-05、2012-07-09、2012-07-13 にありますが、出力自体にはそれが表示されません...