http://qs321.pair.com?node_id=1017780

Kanishka.black0 has asked for the wisdom of the Perl Monks concerning the following question:

i have looked at Apache Benchmark 2 which has obviosuly a single url benchmark stuff

Well it fall short of dynamic URL

i tried to create http broadcaster using POE

its wokring fine, i can't figure out where i can get time taken for each session

#!/usr/bin/perl use warnings; use HTTP::Request::Common qw(GET POST); use POE qw(Component::Client::HTTP); use YAML; my @url_list; for(1 .. 10) { my $a = rand(900); my $b= rand(900); my $t = int(rand(100000)); my $url = "http://127.0.0.1:3000/search/".$t."/?a=".$a."&b=".$b; push @url_list, $url; } POE::Component::Client::HTTP->spawn(Alias => 'ua'); sub got_response { my ($SESSION, $heap, $request_packet, $response_packet) = @_[SESSION +,HEAP, ARG0, ARG1]; my $http_request = $request_packet->[0]; my $http_response = $response_packet->[0]; } sub _start { my $kernel = $_[KERNEL]; foreach my $url (@url_list) { $kernel->post("ua" => "request", "got_response", GET $url); } } POE::Session->create(package_states => [main => ["_start", "got_respon +se"]]); $poe_kernel->run();