LWP and form bombardment

[agoth]

I'm trying to test one of my own *.pl scripts which takes form input and does DBI / file access behind the scenes.

I want to check hit rate of up to 30 submissions per second, but under the control of one script I can't seem to do it, each LWP request having to wait for its own return, unless I'm missing something?? I guess I'm heading for something like threading or having to kick off 30 concurrent perl processes per second which isnt very nice. Any better solutions?? code below.

NB Pls ignore dot star for the moment

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my %field =  ('name' => 'value');
my @rcs;

for (1..100) {
    push @uas, LWP::UserAgent->new;
}

my $req = POST 'http://server/cgi/script.pl', \%field;

for (@uas) {
    my $html = $_->request($req)->as_string;
    if ($html =~ /<return>(.*)?<\/return>/s) {
        push @rcs, "return is $1\n";
    } else {
        push @rcs, "error";
    }
}
my $i = 0;

for (@rcs) {
    print "$i : $_\n";
    $i++;
}

[clemburg]

I think you want to use LWP::Parallel.

You might also be interested in this article on apache performance tuning, and Torture Testing Web Servers.

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com

[agoth]

Thanks for the pointer and the links, including merlyn's below, just what I needed.

Im more embarrassed that when i got the libwww bundle off CPAN earlier in the day, i didn't notice the Parallel...

[merlyn]

You knew this was coming...

See my WT column on stress-testing your web server.

-- Randal L. Schwartz, Perl hacker

[agoth]

PS. I have used the &callback method before but cant see how it might help in this case???