PerlのBenchmarkモジュールへプライベート変数の内容を手際よく渡せないでしょうか。
例えば
Windows-XP-prompt>perl -MBenchmark -e "{my $m=1;timethis(10,'&f($m,2)');}sub f{print join ' ',@_[0,1],'';}"
において、Benchmark::timethisなどに渡すコードはプライベート変数を覗くことができないようなので、ベンチマーク中に出力ファイルハンドルへ吐きだされる文字列が 2 2 2 ... となるのは理解できます。
プライベート変数の内容を使うコードをテストしたい場合は、
Windows-XP-prompt>perl -MBenchmark -e "{my $m=1;our @o=($m,2);timethis(10,'&f(@o)');}sub f{print join ' ',@_[0,1],'';}"
のように、timethisを呼び出す直前にour宣言などしたグローバル変数を介してコードに内容を渡すのが、一番考えられる方法でしょうか。
しかしこれは正直、手際が悪いと感じるので、もっと手際のいい方法を欲しています。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
みんなの回答
-
Craftworks
満足80pt
timethis() はコードリファレンスを渡せますよ。
perl -MBenchmark -e "my \$m=1;timethis(10, sub {print join ' ',\$m,2,'';})"
1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 1 2 timethis 10: 0 wallclock secs ( 0.00 usr + 0.00 sys = 0.00 CPU)
-
imo758
-
- その他の回答を読む
imo758
まだオープンされてない回答
この質問へのコメント
質問の情報
- 登録日時
- 2010-05-06 07:29:48
- 終了日時
- 2010-05-12 08:37:11
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者
Windows-XP-prompt>perl -MBenchmark -e "{my $m=1;timethis(1000000,qq{\&f($m)});}sub f{print @_;}"
もあるのでしょうけれど、$aに変な文字を入れるとエラーになってしまいます。
perlはActivePerl、環境の一部は次の通りです。
perl -MBenchmark -e "print $Benchmark::VERSION
1.07
perl -V 一部
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
Platform:
osname=MSWin32, osvers=5.0, archname=MSWin32-x86-multi-thread