Parallel::ForkManager - machine way tooo slow - need a quad-core machine now!?

English Programming/Scripting
1

hi linux-folks

good day dear suse-friends: tryin to get this to work:

what is aimed: have a list of 300 to 400 urls - i need thumbnails of all of them:

Duuu: do i need a 4 Core processor!?`

tryin to get this to work:

**Q: **do i need a 4 Core processor!?`

why: well i am guessing that my machine is bit too solow hmmm i added Parallel::ForkManager.

But if you do so - you need a blisteringly fast machine it uses lots of mb of memeory and a bunch of the core running opensuse 12.2 and perl 5.14.2

my machine is too slow - whats if i want to run this with lemme say 200 URLS (or websites) do i need a 4 Core processor!?`

#!/usr/bin/perl 
 
use WWW::Mechanize::Firefox; 
use strict; 
use warnings; 
#use Parallel::ForkManager; 
 
 
 
#my $fork = Parallel::ForkManager->new(25); 
 
#sites 
my @urls = qw(http://www.google.com http://www.yahoo.com http://www.cnn.com http://www.bing.com http://www.nbcnews.com/... and thosusand 

others more ); 
#temp base dir 
my $temp = '/home/aaron/cgi-bin/'; 
 
for my $each (@urls){ 
    #$fork->start and next; 
    my $mech = WWW::Mechanize::Firefox->new(launch => 'firefox',create => 1,); 
     
    $each =~ /www\.(\w+)\.com/; 
    my $name = $1; 
    print "creating $name.png
"; 
     
     
    $mech->get($each); 
    my $png = $mech->content_as_png(undef, undef, {width => 240,height => 240}); 
     
    my $dir_name = "$temp/$name".".png"; 
    open my $file, ">", "$dir_name" or die "couldnt create $temp/$1.png"; 
    binmode $file; 
    print {$file} $png; 
     
    close $file; 
    sleep 5; # sleep some to give it a little time to make sure things compleated..... you'll need this more using fork 
     
    #$fork->finish; 
} 
print "Well All done!
"; 
#$fork->wait_all_children;