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

開発環境

• 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(練習問題)、1を解いてみる。

3.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; my @sorted = map $_->[0], sort { $a->[1] <=> $b->[1]} map [$_, -s $_], glob "/bin/*"; my $width = 0; my $width_n = 0; for(@sorted){ $width = length $_ if length $_ > $width; $width_n = length -s $_ if length -s $_ > $width_n; } for(@sorted){ printf "%-${width}s: %${width_n}d\n", $_, -s $_; }

入出力結果(Terminal)

$ ./perl_program /bin/sync : 34288 /bin/wait4path : 34576 /bin/echo : 34608 /bin/rmdir : 34624 /bin/domainname: 34672 /bin/sleep : 34688 /bin/pwd : 34704 /bin/hostname : 34720 /bin/mkdir : 35072 /bin/kill : 35088 /bin/link : 39600 /bin/ln : 39600 /bin/[ : 43120 /bin/test : 43120 /bin/expr : 43808 /bin/cat : 44192 /bin/rm : 44528 /bin/unlink : 44528 /bin/mv : 44848 /bin/df : 52432 /bin/date : 57408 /bin/cp : 57808 /bin/dd : 61216 /bin/chmod : 62768 /bin/stty : 64976 /bin/rcp : 66368 /bin/ls : 80752 /bin/ps : 95840 /bin/ed : 122000 /bin/launchctl : 167408 /bin/pax : 243104 /bin/csh : 772992 /bin/tcsh : 772992 /bin/zsh : 1103984 /bin/bash : 1371648 /bin/sh : 1371712 /bin/ksh : 2180736 $