くだすれPerl（超初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
535:529 07/12/06 12:02:24 I3qzGVsw ＞533 ありがとうございます。そういう風にテストするんですね。 （自分の勉強不足でした。） かゆいところに手が届いた感じです。感謝してマス。 早速調べて使ってみます。 536:530 07/12/06 14:42:15 >>533 わざわざ補足いただいて恐縮なんだけど、少しご意見を・・・。 自分は、あまり use Benchmark を信用せずに、 use Time::HiRes でベンチ取るようにしてる。 どうも use Benchmark は、実際の動作時間に即してないような気がするので。 具体的にゆうと、>>530や>>533の場合だと、ファイルIOについての待ち時間がカウントされてないように思う。 確かにPerl内部だけで動作が完結するコードについては、しっかりと時間を計測してくれてるようだけど、 例えば外部ファイル読み書きや、他のプロセスをロードしたりするための時間はカウントしてくれないみたい。 詳しくソースとかを追ったわけではないけれど、以下簡単な実証コード use Time::HiRes qw(time); use Benchmark qw(timethese); $n = 100; sub cgi_1 { system( q(perl -MCGI -e "") ); } sub cgi_2 { system( q(perl -MCGI::Lite -e "") ); } timethese($n,{ u_CGI => 'cgi_1', u_CGIL => 'cgi_2'}); $st1 = time(); for(1..$n){ &cgi_1(); } $lt1 = time() - $st1; $st2 = time(); for(1..$n){ &cgi_2(); } $lt2 = time() - $st2; printf "%.3f s\n",$lt1; printf "%.3f s\n",$lt2;

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4296日前に更新/307 KB
担当:undef