2008年1月アーカイブ

# もしModule::CoreListがインストールされてないなら cpan install Module::CoreList perl -MModule::CoreList -e 'print "$_\n" for sort keys %{$Module::CoreList::version{5.008008}} '

AnyDBM_File Attribute::Handlers AutoLoader AutoSplit B B::Asmdata B::Assembler B::Bblock B::Bytecode B::C B::CC B::Concise B::Debug B::Deparse B::Disassembler B::Lint B::Showlex B::Stackobj B::Stash B::Terse B::Xref Benchmark ByteLoader CGI CGI::Apache CGI::Carp ...

daisuke@beefcake Cache-Memcached-LibMemcached$ perl -Mblib tools/benchmark.pl ==== Benchmark "Simple set() (scalar)" ==== (warning: too few iterations for a reliable count) Rate perl_memcahed memcached_fast libmemcached libmemcached_no_block perl_memcahed 7396/s -- -60% -77% -99% memcached_fast 18382/s 149% -- -42% -98% libmemcached 31646/s 328% 72% -- -97% libmemcached_no_block 1000000/s 13420% 5340% 3060%

daisuke@beefcake Cache-Memcached-LibMemcached$ perl -Mblib tools/benchmark.pl ==== Benchmark "Simple set() (scalar)" ==== Rate perl_memcahed memcached_fast libmemcached libmemcached_no_block perl_memcahed 6961/s -- -62% -78% -99% memcached_fast 18437/s 165% -- -42% -98% libmemcached 31827/s 357% 73% -- -97% libmemcached_no_block 1086957/s 15515% 5796% 3315% --

daisuke@beefcake Cache-Memcached-LibMemcached$ perl -Mblib tools/benchmark.pl ==== Benchmark "Simple get() (scalar)" ==== Rate perl_memcahed memcached_fast libmemcached perl_memcahed 3837/s -- -80% -88% memcached_fast 18939/s 394% -- -42% libmemcached 32895/s 757% 74% -- ==== Benchmark "Simple get() (w/serialize)" ==== Rate perl_memcahed memcached_fast libmemcached perl_memcahed 3658/s -- -77% -84% memcached_fast 16077/s 340% -- -29% libmemcached 22727/s 521% 41% -- ==== Benchmark "Simple get() (w/compression)" ==== Rate perl_memcahed memcached_fast libmemcached perl_memcahed 3720/s -- -74% -81% memcached_fast 14535/s 291% -- -27% libmemcached 19841/s 433% 37% -- ==== Benchmark "Simple set() (scalar)" ==== Rate perl_memcahed memcached_fast libmemcached perl_memcahed 7163/s -- -61% -77% memcached_fast 18519/s 159% -- -41% l ibmemcached 31447/s 339% 70% -- ==== Benchmark "Simple set() (w/serialize)" ==== Rate perl_memcahed memcached_fast libmemcached perl_memcahed 3529/s -- -31% -41% memcached_fast 5086/s 44% -- -15% libmemcached 6002/s 70% 18% -- ==== Benchmark "Simple set() (w/compress)" ==== Rate perl_memcahed libmemcached memcached_fast perl_memcahed 6684/s -- -39% -63% libmemcached 10989/s 64% -- -39% memcached_fast 17986/s 169% 64% --

daisuke@beefcake Cache-Memcached-LibMemcached$ perl -Mblib tools/benchmark.pl Rate perl_memcahed libmemcached perl_memcahed 3808/s -- -88% libmemcached 32680/s 758% --

daisuke@beefcake Cache-Memcached-LibMemcached$ perl -Mblib tools/benchmark.pl Rate perl_memcahed libmemcached perl_memcahed 3909/s -- -86% libmemcached 27778/s 611% --

use Cache::Memcached::LibMemcached; my $memd = Cache::Memcached::LibMemcached->new({ serves => [ "10.0.0.15:11211", "10.0.0.15:11212", "/var/sock/memcached" ], compress_threshold => 10_000 }); $memd->set("my_key", "Some value"); $memd->set("object_key", { 'complex' => [ "object", 2, 4 ]}); $val = $memd->get("my_key"); $val = $memd->get("object_key"); if ($val) { print $val->{complex}->[2] }

# 追加前 shell > 堂本光一 堂本 名詞,固有名詞,人名,姓,*,*,堂本,ドウモト,ドーモト 光一 名詞,固有名詞,人名,名,*,*,光一,コウイチ,コーイチ # 追加後 shell > mecab 堂本光一 堂本光一 名詞,固有名詞,人名,*,*,*,堂本光一,どうもとこういち,*

use Queue::Q4M; my $q = Queue::Q4M->connect( connect_info => [ 'dbi:mysql:dbname=mydb', $username, $password ], table => 'q4m' ); for (1..10) { $q->insert(\%fieldvals); } while ($q->next) { my ($col1, $col2, $col3) = $q->fetch(\@fields); print "col1 = $col1, col2 = $col2, col3 = $col3\n"; } while ($q->next) { my $cols = $q->fetch_arrayref(\@fields); print "col1 = $cols->[0], col2 = $cols->[1], col3 = $cols->[2]\n"; } while ($q->next) { my $cols = $q->fetch_hashref(\@fields); print "col1 = $cols->{col1}, col2 = $cols->{col2}, col3 = $cols->{col3}\n"; } $q->disconnect;

use strict; use warnings; use DBI; use Time::HiRes qw(time); my $TEST_ROWS = $ENV{TEST_ROWS} || 1024; my $dbh = DBI->connect( $ENV{DBI} || 'dbi:mysql:database=test;host=localhost', $ENV{DBI_USER} || 'root', $ENV{DBI_PASSWORD} || '', ) or die 'connection failed:'; $dbh->do('drop table if exists q4m_t'); $dbh->do('create table q4m_t (v int not null) engine=queue'); my $insert_time = 0; my $select_time = 0; my $insert = $dbh->prepare("insert into q4m_t (v) values (?)"); for (my $i = 0; $i < $TEST_ROWS; $i++) { my $start = time(); $insert->execute($i); $insert_time += time() - $start; } my $sth = $dbh->prepare("select queue_wait('test.q4m_t')"); for(0..$TEST_ROWS - 1) { my $start = time(); if ($sth->execute()) { my $h = $sth->fetchrow_hashref(); } else { last; } $select_time += time() - $start; } $dbh->do('select queue_end()'); print STDERR "$TEST_ROWS items used\n"; print STDERR " avg insert time: ", $insert_time / $TEST_ROWS, "\n"; print STDERR " avg select time: ", $select_time / $TEST_ROWS, "\n";

daisuke@beefcake q4m$ env TEST_ROWS=128 perl queue.pl 128 items used avg insert time: 0.0969786122441292 avg select time: 0.0974297747015953 daisuke@beefcake q4m$ env TEST_ROWS=256 perl queue.pl 256 items used avg insert time: 0.107754170894623 avg select time: 0.115405934862792 daisuke@beefcake q4m$ env TEST_ROWS=512 perl queue.pl 512 items used avg insert time: 0.0976005531847477 avg select time: 0.0964000821113586

use GunghoX::GSL; config( engine => { module => 'POE' } ); process { # Simple request. This is equivalent of saying # request { # url => 'http://search.cpan.org' # } # or # request_build { # my $req = Gungho::Request->new(GET => 'http://search.cpan.org'); # return $req; # }; request 'http://search.cpan.org'; # Handle the previous response response { my $response = shift; # do something with $response } }; process { request { name => 'BEGIN', url => 'http://search.cpan.org', }; response_for 'BEGIN', { my $response = shift; my @links = ...; # follow links foreach my $link (@links) { request { name => 'follow', url => $link } } }; response_for 'follow' { my $response = shift; # do something with $response } };

取り急ぎ"process"に代わる名前が欲しいところだな。