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++;
}

[download]

In reply to LWP and form bombardment by agoth

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.