[perl] Perlで同じコードを違うバージョンのモジュールでベンチマークする - 酒日記 はてな支店

複数バージョンのモジュールで同じコードを実行してBenchmark.pmで計測したい、というケースにこう書けばいいかな、という例。 普通にBenchmark.pmを使ってしまうと同一モジュールを違うバージョンで複数読み込むことができないため、 バージョンごとに子プロセスを fork 子プロセスで use lib して @INC を追加してから use 計測した結果をファイルに保存して親プロセスで集約、表示 という流れで書きます。 use strict; use Benchmark qw/ :all /; use File::Temp qw/ tempfile /; use Storable qw/ nstore retrieve /; # 計測したいコード my $code = sub { my $c = Cache::Redis->new; for ( 1 .. 10 ) { $c->s

[sfujiwara]

書いた

[lesamoureuses]

コードがすごくスッキリ

[papix]

Benchmark::Forking! なるほど...

[moznion]

Benchmark::Forkingめっちゃ便利そう！

[matsumoto_r]

こういう書き方好きだなぁ

[kenjiskywalker]

PerlおじさんのPerl情報だ

[mackee_w]

この前のMongoDB.pmのMouse化のやつでやってみよう

[likk]

違うバージョンのモジュールでベンチマーク

[Songmu]

モジュールのチューニングしてる時に、手元でいじってるやつと、インストールされてるやつの速さの違いとかを示すときに便利そう。pull reqするときに、これくらい速くなるみたいなのが簡単に示せそう。

[dann]

cool!