Book Searching with Perl Under The Hood 25 of 29 : [PREV] [NEXT]

Extract Details

      $mechanize->get( $book );
      $data = $extract->extract($template, $mechanize->content());

      unless(defined $data) {
              print "Error extracting data from ORA result page.\n" if $self->verbosity;
              $self->error("Could not extract data from ORA result page.\n");
              $self->found(0);
              return 0;
      }
  • again use Template::Extract to do the work
  • report problems if we couldn't read the page
© 2004 Barbie barbie@missbarbell.co.uk Home http://birmingham.pm.org/