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.