Having migrated by Outlook mailbox, I wanted to load calendar entries into another calendar. Following my earlier post, I already had my calendar entries in ICAL format, so all seemed good. However, I also had a number of recurring events (birthdays etc) that I wanted to put into my Google Calendar. The following PERL script was a handy bit of code to extract the recurring events so that I could extract them and add to my public calendar.

1
2
3
4
5
6
7
8
9
10
11
12

$entry =  '';
while(<STDIN>) {
  if ($_ eq "" || $_ eq "\n") {
    if ($entry =~ /^RRULE\:/) {
      print $entry;
    }
    $entry = "\n";
  } else {
     $entry .= $_;
  }
}
print $entry;