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

Go Search

      my $url = SEARCH . sprintf(QUERY,$isbn);
      my $mechanize = WWW::Mechanize->new();
      $mechanize->get( $url );
      return undef unless($mechanize->success());
  • create the search URL string
  • Let mech get it
  • Ensure we got it
© 2004 Barbie barbie@missbarbell.co.uk Home http://birmingham.pm.org/