Perl - ファイルハンッドルへのリファレンス(IO::Dirモジュール)

開発環境

• 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)の8章(ファイルハンッドルへのリファレンス),　8.6(練習問題)、3を解いてみる。

3.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; use IO::Dir; for(grep {-d} @ARGV){ print "$_\n"; display(IO::Dir->new($_)); } sub display{ my $dir_fh = shift; while( defined(my $file = $dir_fh->read) ){ next if $file eq '.' || $file eq '..'; print " $file\n"; } }

入出力結果(Terminal)

$ ./perl_program /bin /usr /var /bin [ bash cat chmod cp csh date dd df domainname echo ed expr hostname kill ksh launchctl link ln ls mkdir mv pax ps pwd rcp rm rmdir sh sleep stty sync tcsh test unlink wait4path zsh /usr bin etc include lib libexec llvm-gcc-4.2 local sbin share standalone X11 X11R6 /var agentx amavis at audit backups db empty folders jabberd lib log mail msgs named netboot pgsql_socket root rpc run rwho spool tmp virusmails vm xgrid yp $