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

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

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

 

1.

ディレクトリか判定するには「-d」を使えばいいみたい。今日もグーグル先生のお世話に。

コード(TextWrangler)

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

# 問題のシュワルツ変換
my @sorted = 
 map $_->[0],
 sort {$a->[1] <=> $b->[1]}
 map [$_, -s $_],
 glob "/bin/*";

# /binディレクトリに含まれている
# すべての名前、相対サイズをカラムを
# 揃えて表示するために目盛りを取得
my $width_1=0;
my $width_2=0;
foreach (@sorted){
  $width_1=length($_) if length($_ ) > $width_1;
  $width_2=length(-s $_) if length(-s $_) > $width_2;
  }
foreach (@sorted){
  printf "%-${width_1}s %${width_2}g\n", $_, -s $_;
  }

入出力結果(Terminal)

$ ./my_program /bin/rmdir 34624 /bin/mkdir 35072 /bin/link 39552 /bin/ln 39552 /bin/cat 44272 /bin/rm 44448 /bin/unlink 44448 /bin/mv 44848 /bin/df 48368 /bin/sync 50512 /bin/echo 50704 /bin/sleep 50752 /bin/pwd 50784 /bin/domainname 50816 /bin/hostname 50816 /bin/wait4path 50864 /bin/kill 51024 /bin/cp 57632 /bin/dd 60992 /bin/chmod 62656 /bin/[ 63184 /bin/test 63184 /bin/expr 67552 /bin/ls 80688 /bin/date 80848 /bin/stty 88704 /bin/rcp 93376 /bin/ed 117504 /bin/ps 134816 /bin/pax 238576 /bin/launchctl 246720 /bin/csh 767200 /bin/tcsh 767200 /bin/bash 1.34654e+06 /bin/sh 1.34662e+06 /bin/zsh 1.5972e+06 /bin/ksh 2.18688e+06