in reply to Re^6: Use more threads.
in thread Use more threads.
I just used your code, it took 1.37 seconds. Then I added 9 lines of "use Modules" after "use strict" and now it takes 12.3 seconds:
use Socket; use IO::Socket; use DBI; use DBD::mysql; use Tk; use Tk::JPEG; use Tk::Table; use Tk::ProgressBarPlus; use LWP::UserAgent;
Adding "use LWP::UserAgent;" alone makes it run for over 5 seconds.
The complete code:
#! perl -slw use strict; use Socket; use IO::Socket; use DBI; use DBD::mysql; use Tk; use Tk::JPEG; use Tk::Table; use Tk::ProgressBarPlus; use LWP::UserAgent; use Time::HiRes qw[ time ]; use threads stack_size => 4096; my $start = time; async { #printf "%u starting\n", threads->tid; sleep 1e3 } ->detach for 1 .. 100; printf "Took %f seconds\n", time() - $start;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^8: Use more threads.
by BrowserUk (Patriarch) on Apr 30, 2013 at 11:27 UTC |
In Section
Meditations