Skip to content

Instantly share code, notes, and snippets.

@djanatyn

djanatyn/parse.pl

Created October 31, 2011 00:50
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save djanatyn/1326659 to your computer and use it in GitHub Desktop.
Save djanatyn/1326659 to your computer and use it in GitHub Desktop.
Download ZIP
parsing facebook birthday files
Raw
parse.pl
my $fh = open('birthdays.ics', :r);
for $fh.lines -> $line {
if $line ~~ m/^DTSTART\:(.+)/ { say "date: $0"; };
if $line ~~ m/^SUMMARY\:(.+)/ { say "name: $0"; };
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment