Help for this page

Select Code to Download


  1. or download this
       use strict;
   use LWP::Simple qw/getstore/;
...
                            'test.html');
   # Or you could store the content in a scalar, with: 
   # my $content = get('http://www.google.com');
  2. or download this
       use strict;
   use HTML::SimpleLinkExtor;
...

   # feed each element of @images back to a getstore() for
   # each image found
  3. or download this
        $file =~ s/.*[\/\\](.*)/$1/;