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

続・初めてのPerl 改訂版
Randal L. Schwartz
brian d foy, Tom Phoenix 著

開発環境

• 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.

コード(TextWrangler)

#!/usr/bin/env perl
use strict;
use warnings;

my @sorted = 
  map $_->[0],
  sort{ $a->[1] <=> $b->[1] } 
  map [$_, -s $_],
  glob "/bin/*";

for(@sorted){
  print "$_\n";
}

入出力結果(Terminal)

$ ./sample.pl
Benchmark: running シュワルツ変換, 素朴なコード   for at least 5 CPU seconds...
シュワルツ変換: 41 wallclock secs ( 2.35 usr +  3.20 sys =  5.55 CPU) @ 621.26/s (n=3448)
素朴なコード  : 40 wallclock secs ( 1.93 usr +  3.17 sys =  5.10 CPU) @ 1215.69/s (n=6200)
$