#!/usr/bin/perl 
 
use strict; 
use warnings; 
use WWW::Mechanize::Firefox; 
 
my $mech = new WWW::Mechanize::Firefox(); 
 
open(INPUT, "<urls.txt") or die $!; 
 
while (<INPUT>) { 
        chomp; 
        print "$_\n"; 
        $mech->get($_); 
        my $png = $mech->content_as_png(); 
        my $name = "$_"; 
        $name =~s/^www\.//; 
        $name .= ".png"; 
        open(OUTPUT, ">$name"); 
        print OUTPUT $png; 
        sleep (5); 
} 
 
Code
 
Well this does not care about the size: 
 
See the output commandline: 
 
Code
linux-vi17:/home/martin/perl # perl mecha_test_1.pl 
   www.google.com 
    www.cnn.com 
    www.msnbc.com 
command timed-out at /usr/lib/perl5/site_perl/5.12.3/MozRepl/Client.pm line 186 
linux-vi17:/home/martin/perl #
 
Question: how to extend the solution either to make sure that it does not stop in a time out. 
Note again: i only need the results as a thumbnails that are a maximum 240 pixels in the long dimension. 
As a prerequisites, i allready have installed the module imager. 
How to make the script running faster with less overhead - spiting out the thumbnails 
 
Update: in addition to the mothere is a Monksthread perlmonks.org/?node_id=901572 
 
 
i also tried out this one here: 
 
Code
$mech->repl->repl->setup_client( { extra_client_args => { timeout => 5*60 } } ); 
 
putting links to @list and use eval 
 
while (scalar(@list)) { 
        my $link = pop(@list); 
        print "trying $link\n"; 
        eval{ 
        $mech->get($link); 
        sleep (5); 
        my $png = $mech->content_as_png(); 
        my $name = "$_"; 
        $name =~s/^www\.//; 
        $name .= ".png"; 
        open(OUTPUT, ">$name"); 
        print OUTPUT $png;        
        close(OUTPUT); 
        } 
        if ($@){ 
          print "link: $link failed\n"; 
          push(@list,$link);#put the end of the list 
          next; 
        } 
        print "$link is done!\n"; 
 
}
 
Question: is there a Ruby / Python /PHP-Solution that runs more efficient - or can you suggest a Perl-solution that is more stable.. 
 
 
Look forward to hear from you 
 
Thx for any and all help in advance 
 
have a great day 
 
greetings