LIMILIC

LWP::ConnCacheの効果を確認してみる

Webサーバは、MacOS X 10.4.11の素のApache。

KeepAliveがOnで、Timeout 15、MaxRequestが100になっているようです

スクリプト

#!/usr/bin/perl

use strict;
use warnings;
use Benchmark qw(:all);
use LWP::UserAgent;
use LWP::ConnCache;

my $conncache = LWP::ConnCache->new;

cmpthese(1000, {
  'no-keepalive' => sub {
    my $ua = LWP::UserAgent->new;
    $ua->get("http://127.0.0.1/", ':content_cb' => sub { } );
  },
  'keepalive' => sub {
    my $ua = LWP::UserAgent->new;
    $ua->conn_cache( $conncache );
    $ua->get("http://127.0.0.1/", ':content_cb' => sub { } );
  }
});

結果

$ perl keepalive_bench.pl
              Rate no-keepalive    keepalive
no-keepalive 463/s           --         -19%
keepalive    568/s          23%           --

20%ぐらい早い。

ちゃんと動きそう