Help for this page

Select Code to Download


  1. or download this
    # get the first level of links
  my @links = $mech->find_all_images(url_regex => qr/jpg$/);

# follow each link to the next link
  foreach (@links) { $mech->follow_link ( $_->url() )};
  2. or download this
    Odd number of elements in hash assignment at /usr/lib/perl5/vendor_per
+l/5.8.6/WWW/Mechanize.pm line 573.