Select Code to Download

micha@laptop ~/prog/perl/test $ time ./threads_benchmark.pl

...
sys     0m0.172s

(resident memory 6.3MB)

#!/usr/bin/perl -w

...
threadpool_shutdown();

print "Exiting now, threads working: ",threadpool_threadsworking,"\n";

micha@laptop ~/prog/perl/test $ time ./threadpool.pl

...
sys     0m0.024s

(max res memory indefinite rising, 10MB)

#!/usr/bin/perl -w

...
        $t->join();
}
$_->join for @threads;

micha@laptop ~/prog/perl/test $ time ./thread_pool_benchmark.pl

...
sys     0m0.048s

15M res memory

#!/usr/bin/perl -w

...


$p->shutdown();