なかのにっき

雨雲が抜けるまでの時間潰しに。 sid で libtie-ical-perl を apt-get して、

#!/usr/bin/perl

use Tie::iCal;

system ('wget -q http://www.google.com/calendar/ical/ふがほげ@gmail.com/public/basic.ics');

tie %my_events, 'Tie::iCal', 'basic.ics';
while (my($uid, $event) = each(%my_events)){
        if (${$event}[0] != 'VEVENT'){next;};
        %ent = %{${$event}[1]};
        print $ent{'SUMMARY'} . "\n";
        print $ent{'DTSTART'}[1] . "\n";
}
untie %my_events;
unlink 'basic.ics';

というような感じで舐められるようだ。 日付の parse は Date::ICal を使うんかな。 RRULE のあるやつは repeat に落とす感じで。 休日ハックでなんとかなりそうだ。