Perl download images files

use strict;$|++; use WWW::Mechanize;use File::Basename; my $m = WWW::Mechanize->new; $m->get("http://www.despair.com/indem.html"); my @top_links = @{$m->links}; for my $top_link_num (0..$#top_links) {    next unless $top_links[$top_link_num][0] =~ /^http:/;     $m->follow_link( n=>$top_link_num ) or die "can't follow $top_link_num";     print $m->uri, "\n";    for my $image (grep m{^http://store4}, map $_->[0], @{$m->links}) {        my $local = basename $image;        print " $image...", $m->mirror($image, $local)->message, "\n"    }     $m->back or die "can't go back";}

Source: metacpan.org

Similar codes

0 vote211 views1 answer
Perl mongodb conf location
Perl
0 vote223 views2 answers
Perl make a new directory
Perl
0 vote177 views1 answer
What happened to perl 6
Perl
0 vote180 views1 answer
Perl format decimal 2 places not rounding
Perl
0 vote218 views3 answers
Perl list files and folders in a directory
Perl
0 vote224 views1 answer
Perl leading zeros formatting sprintf
Perl
2 votes221 views1 answer
Perl replace substring
Perl
76 votes221 views6 answers
Download league of legends
Perl
0 vote164 views1 answer
What is the index number of the last element of an array with 9 elements?
Perl
0 vote191 views1 answer
Perl make a new directory and change permissions
Perl