#!/usr/bin/perl -l use LWP; use Parallel::ForkManager; use feature ':5.10'; my $pm = Parallel::ForkManager->new(10); my $lwp = LWP::UserAgent->new; foreach my $test ( 0 .. 500 ) { state $count = 0; $count++; $pm->start and next; my $resp = $lwp->get( "http://google.com/search?q=$test", ':conten +t_file' => $test ); $pm->finish; } $pm->wait_all_children;
In reply to Strawberry perl memory leak by EvanCarroll
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |