examples/rules/yapc_schedule.pl

   1 # for extracting data from the YAPC::NA 2006 schedule
   2 # wget -O monday http://yapcchicago.org/the-schedule/monday
   3 # pugs yapc_schedule.pl monday
   4
   5 grammar yapc_schedule {
   6     rule schedule { <title> [ <talk> ]+ }
   7
   8     token title { '<title>' .+? '</title>' }
   9
  10     regex ws { .*? }
  11
  12     token talk { '<small>' <speaker> '</small>' }
  13
  14     token speaker { [\w|\s|\,]+ }
  15 }
  16
  17 ### extract.pl
  18 use v6;
  19
  20 my $content = slurp @*ARGS[0];
  21
  22 my $match = $content ~~ m/<yapc_schedule::schedule>/;
  23
  24 say $match.perl;
  25