1. #!/usr/bin/env perl
  2. use strict;
  3. use warnings;
  4. use autodie;
  6. use Data::Dump;
  8. my $str = '';
  9. my @time_table;
  10. while ( my $buf = <DATA> ) {
  11. $str .= $buf;
  12. if ($str =~ s/
  13. <div\s+[^>]*class=['"]\s*event-time\s+calendar-\d+\s*['"][^>]*>\s*
  14. (\d\d?):(\d\d?) \s*-\s* ((\d\d?):(\d\d?))? \s*<\/div>
  15. |
  16. <p\s+[^>]*class=['"]\s*(description|summary)\s*['"][^>]*> (.*) <\/p>
  17. //sx
  18. )
  19. {
  20. if ( defined $1 ) {
  21. push @time_table, { 'hh_s' => $1, 'mm_s' => $2 };
  22. }
  23. if ( defined $4 ) {
  24. push @time_table, { 'hh_f' => $4, 'mm_f' => $5 };
  25. }
  26. if ( defined $6 ) {
  27. push @time_table, { $6 => $7 };
  28. }
  30. }
  31. }
  33. ddx 0 + @time_table => @time_table;
  35. __DATA__
  36. <div class="event-time calendar-1">12:45 -
  37. 14:00</div>
  38. <div class="event-time calendar-1">12:46 -
  39. </div>
  40. <div class="event-time calendar">12:47 -
  41. 14:01</div>
  42. <div class="something else entirely">The time is now
  43. 05:46</div>
  44. <p class="summary">abcd efgh</p>
  45. <p class="description">ijkl mnop</p>