404 Blog Not Found : perl - PoCo::Client::HTTP < LWP::UserAgent->new(keep

POE鐃緒申鐃緒申流鐃峻わ申鐃銃わ申鐃殉わ申鐃緒申鐃巡自鐃緒申POE鐃熟わ申鐃順く鐃緒申鐃順く鐃夙ってわ申鐃緒申里任鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申弌鐃緒申呂箸砲鐃緒申鐃緒申鐃緒申薀わ申鐃緒申鐃夙となわ申箸鐃緒申鐃循ど使ってわ申鐃殉わ申鐃緒申

鐃緒申由鐃熟￥申鐃淑駕申鐃叔わ申鐃緒申鐃緒申泙鐃緒申鐃�

鐃緒申由鐃熟￥申鐃緒申辰鐃獣縁申磧ｏ申鐃緒申率鐃緒申鐃緒申鐃緒申任鐃緒申鐃�

鐃淑駕申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃叔わ申10000bytes鐃塾ワ申鐃緒申謄鐃夙わ申同鐃緒申鐃緒申鐃緒申鐃出￥申鐃緒申100鐃緒申鐃緒申帽圓辰討鐃緒申泙鐃緒申鐃�

% perl lwp-bench.pl 0
Elapsed: 2.245773 seconds                                                       
Connection: close       100

% perl lwp-bench.pl 1
Elapsed: 0.928301 seconds                                                       
Connection: (N/A)       99
Connection: Keep-Alive  1

% perl poe-bench.pl 1
Elapsed: 19.593628 seconds

% perl poe-bench.pl 10
Elapsed: 5.451616 seconds

POE鐃緒申鐃緒申鐃緒申鐃緒申鐃駿わ申鐃緒申鐃緒申鐃緒か鐃緒申砲覆襪�申隼廚鐃緒申泙鐃緒申鐃獣縁申鐃緒申戮鐃緒申鐃緒申鐃緒申任呂覆鐃緒申鐃緒申鐃緒申蝓種申鐃緒申辰反鐃緒申鐃緒申泙鐃緒申鐃緒申鐃緒申鐃緒申謄鐃緒申鐃緒申匹呂鐃緒申鐃緒申複鐃緒申鐃叔わ申鐃緒申

鐃緒申鐃緒申鐃粛わ申鐃銃みわ申鐃緒申鐃緒申鐃緒申如鐃�POE鐃緒申鐃緒申同鐃緒申鐃叔ワ申鐃駿ワ申箸鐃緒申鐃緒申鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申箸鐃緒申鐃緒申咾鐃緒申泙鐃緒申鐃緒申鐃緒申鐃緒申謄鐃緒申戰鐃夙の上げ鐃緒申鐃緒申鐃夙わ申鐃緒申鐃塾は￥申OS鐃祝わ申鐃緒申鐃銃わ申鐃緒申擇鐃緒申鐃緒申鐃緒申鐃緒申任呂覆鐃緒申里任鐃緒申鐃緒申鐃緒申討鐃醇ー鐃緒申鐃緒申鐃緒申鐃瞬で￥申鐃緒申鐃緒申鐃緒申preemptive鐃叔はなわ申cooprative鐃祝わ申鐃淑わ申鐃緒申个覆鐃淑わ申POE鐃緒申鐃准わ申鐃淑わ申鐃塾わ申鐃緒申鐃緒申鐃塾わ申鐃夙なのでわ申鐃緒申

鐃緒申鐃緒申鐃初、鐃緒申鐃�POE鐃緒申鐃緒申鐃術わ申鐃緒申同鐃緒申鐃緒申鐃緒申鐃緒申鐃薯けわ申鐃淑わ申鐃緒申里妨鐃緒申蠅件申討鐃緒申泙鐃緒申鐃�Xango鐃塾よう鐃緒申鐃順き鐃緒申離侫譟種申鐃緒ー鐃緒申鐃祝は醐申鐃緒申鐃銃わ申鐃殉わ申鐃緒申鐃緒申同鐃緒申曠鐃緒申箸鐃緒申鐃淑ｏ申鐃緒申離鐃緒申鐃銃ワ申弔鐃緒申辰討鐃緒申鐃夙わ申鐃緒申鐃緒申鐃祝は￥申鐃緒申鐃緒申鐃緒申鐃緒申同鐃緒申鐃祝わ申鐃緒申泙任鐃淑わ申鐃緒申鐃夙わ申鐃緒申鐃緒申多鐃緒申鐃緒申鐃緒申鐃緒申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�申離鐃緒申鐃緒申弌鐃緒申鐃緒申个鐃緒申鐃緒申鐃駿わ申鐃純い鐃塾でわ申鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�申離鐃緒申鐃緒申弌鐃緒申鐃駿は￥申keep_alive鐃緒申箸鐃緒申鐃緒申箸嚢鐃緒申鵬鐃緒申鐃緒申鐃殉わ申鐃緒申LWP::UserAgent鐃熟実わ申keep_alive鐃緒申鐃緒申鐃緒申鐃緒申撞廚鐃緒申鐃緒申鐃�LWP::ConnCache鐃塾ドワ申鐃緒申鐃緒申箸任鐃�"experimental"鐃夙なってわ申鐃銃も、鐃緒申鐃叔は逸申鐃所し鐃銃使わ申鐃銃わ申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申僂鐃緒申覆鐃緒申鐃熟なわ申鐃塾でわ申鐃緒申

POE鐃緒申Web鐃緒申鐃初イ鐃緒申鐃緒申箸濃箸鐃緒申鐃緒申匹鐃緒申鐃緒申蓮鐃緒申鐃緒申廛螢縁申鐃緒申鐃緒申鐃緒申複鐃緒申鐃緒申鐃緒申鐃夙にワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑か鐃緒申鐃順き鐃緒申鐃叔わ申鐃順う鐃緒申鐃緒申鐃塾常申鐃熟￥申POE鐃熟わ申鐃所が鐃緒申鐃緒申鐃緒申鐃獣わ申 proxy server 鐃緒申颪�鐃緒申禄鐃緒申鐃緒申鐃緒申泙鐃緒申鐃緒申鐃緒申両鐃順、鐃緒申鐃竣リケ鐃緒申鐃緒申鐃緒申鐃熟ワ申鐃緒申鐃出￥申鐃叔もあ鐃所ク鐃初イ鐃緒申鐃緒申箸任發�申鐃塾わ申POE鐃緒申箸鐃緒申里暴鐃淑�申淵鐃緒申鵐札鐃銃ワ申鐃瞬となわ申泙鐃緒申鐃�

鐃緒申鐃緒申鐃叔なわ申鐃緒申鐃熟￥申my $ua = LWP::UserAgent->new(keep_alive => 1)鐃夙わ申鐃銃￥申鐃緒申鐃緒申$ua鐃薯終始使わ申鐃藷すのわ申鐃緒申鐃緒申鐃緒申鐃出￥申鐃塾わ申鐃緒申砲癲�申鐃緒申薀わ申鐃緒申鐃夙のわ申鐃緒申砲癲�申鐃緒申鐃緒申討覆砲鐃緒申鐃竣ワ申鐃緒申鐃緒申沺鐃緒申里鐃緒申鐃祝わ申茲わ申鐃緒申隼廚鐃緒申泙鐃緒申鐃�

余鐃縮になわ申泙鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申benchmark鐃叔は￥申chargen鐃夙わ申鐃緒申鐃夙ワ申咼鐃緒申鐃淑ワ申鐃緒申鐃出￥申側鐃竣ワ申鐃緒申鐃緒申鐃緒申箸鐃緒申泙鐃緒申鐃緒申鐃�

chargen source

鐃緒申鐃緒申鐃緒申鐃薯見わ申个鐃緒申錣�申鐃祝なわ申箸鐃緒申蝓�http://wherever/path/to/chargen/NUMBER鐃叔￥申NUMBER bytes鐃緒申文鐃緒申鐃緒申鐃銃逸申鐃緒申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申里任鐃緒申鐃�mod_perl鐃緒申動鐃緒申鐃緒申鐃緒申鐃緒申的鐃淑ワ申鐃淳￥申鐃緒申鐃緒申謄鐃夙わ申箸鐃緒申鐃所ず鐃獣と刻申速鐃叔わ申(Gbit Ether鐃薯真っ刻申鐃祝でわ申鐃殉わ申)鐃緒申鐃駿ワ申鐃緒申沺鐃緒申鐃緒申砲鐃緒申鐃緒申僂鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑�申離鐃緒申鐃緒申弌鐃緒申如鐃�

鐃緒申鐃初イ鐃緒申鐃緒申箸離鐃緒申鐃緒申鐃緒申蓮鐃緒申焚鐃緒申里箸鐃緒申鐃叔わ申鐃緒申

Enjoy!

Dan the Man with Too Many Ways to Access HTTP

lwp-bench.pl

#!/usr/local/bin/perl
use strict;
use warnings;
use Time::HiRes qw/time/;
use LWP::UserAgent;

my $base       = 'http://your.server/path/to/chargen';
my $keep_alive = shift || 0;
my $size       = shift || 100000;
my $ntimes     = shift || 100;
my $ua         = LWP::UserAgent->new( keep_alive => $keep_alive );
my %conn_stat;

local ( $|, $\, $, ) = ( 1, "\r", "\t" );
my $total_bytes = 0;

my $started = time();
for my $n (1.. $ntimes){
    my $uri = "$base/$size/$n";
    my $res = $ua->get($uri);
    die $res->code unless $res->is_success;
    no warnings 'uninitialized';
    my $conn = $res->headers->header('Connection');
    $conn_stat{$conn}++;
    $total_bytes += length $res->content;
    print " " x 80;
    print $res->request->uri, $res->code, $conn;
}

print " " x 80;
printf "Elapsed: %f seconds\n", time() - $started;

local ( $|, $\, $, ) = ( 1, "\n", "\t" );
for my $k ( sort { $conn_stat{$b} <=> $conn_stat{$a} } keys %conn_stat ) {
    my $conn = $k || '(N/A)';
    print "Connection: $conn", $conn_stat{$k};
}
print `ps uxww -p $$`

poe-bench.pl

#!/usr/local/bin/perl;
use strict;
use warnings;

use HTTP::Request;
use POE qw(Component::Client::HTTP);
use Time::HiRes qw/time/;
$| = 1;
my $base  = 'http://api.dan.co.jp/chargen';
my $mph   = shift || 4;
 my $size = shift || 10000;
my $count = shift || 100;
my $started;

my $pool = POE::Component::Client::Keepalive->new(
    keep_alive   => 120,  # seconds to keep connections alive
    max_open     => 100,  # max concurrent connections - total
    max_per_host => $mph, # max concurrent connections - per host
    timeout      => 15,   # max time (seconds) to establish a new connection
);

POE::Component::Client::HTTP->spawn(
    Alias             => 'ua',    # defaults to 'weeble'
    Timeout           => 20,      # defaults to 180 seconds
    ConnectionManager => $pool
);

POE::Session->create(
    inline_states => {
        _start => sub {
            $started = time();
            for my $i ( 1 .. $count ) {
                my $req = HTTP::Request->new( GET => "$base/$size/$i" );
                POE::Kernel->post( 'ua', 'request', 'response', $req );
            }
        },
        _stop => sub {
            print " " x 80;
            printf "Elapsed: %f seconds\n", time() - $started;
            $_[KERNEL]->stop;
        },
        response => sub {
            my $req = $_[ARG0]->[0];
            my $res = $_[ARG1]->[0];
            print " " x 80, "\r";
            print join( "\t", $res->request->uri, $res->code ), "\r";
          }
    },
);

POE::Kernel->run();
print `ps uxww -p $$`;
exit;

404 Blog Not Found

perl - PoCo::Client::HTTP < LWP::UserAgent->new(keep_alive => 1)

鐃夙ワ申奪鐃緒申丱奪鐃緒申鐃緒申鐃�

1. [鐃緒申発] POE

鐃緒申鐃緒申鐃夙逸申鐃緒申 (1)

鐃緒申鐃緒申鐃夙わ申鐃緒申

名鐃緒申
	鐃緒申鐃緒申魑⑱鐃� 評鐃緒申鐃緒申鐃緒申