Perl - リファレンスを使った実践的なテクニック(シュワルツ変換とBenchmarkモジュール)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9)の9章(リファレンスを使った実践的なテクニック),　9.9(練習問題)、2を解いてみる。

2.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; use Benchmark qw(:all) ; my $count = -5; timethis ($count, "code"); # Use Perl code in strings... timethese($count, { '標準　　　　　' => q(sort { -s $a <=> -s $b } glob "/bin/*";), 'シュワルツ変換' => q( map $_->[0], sort { $a->[1] <=> $b->[1]} map [$_, -s $_], glob "/bin/*";), });

入出力結果(Terminal)

s kamimura$ ./perl_program timethis for 5: 8 wallclock secs ( 7.33 usr + -0.04 sys = 7.29 CPU) @ 89590855.97/s (n=653117340) Benchmark: running シュワルツ変換, 標準　　　　　 for at least 5 CPU seconds... シュワルツ変換: 6 wallclock secs ( 2.26 usr + 3.06 sys = 5.32 CPU) @ 1892.67/s (n=10069) 標準　　　　　: 8 wallclock secs ( 2.14 usr + 3.48 sys = 5.62 CPU) @ 3948.04/s (n=22188) $

結果から、シュワルツ変換を使うことによって、練習問題1の仕事は通常のソートに比べて約半分(1892.67/3948.06 ≒ 0.48)以上高速になった。