プログラミング学習の記録 725.2 9章(リファレンスを使った実践的なテクニック)の練習問題4(再帰的に定義されたデータの構築/表示)『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-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(練習問題)、4を解いてみる。

 

4.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; sub data_for_path{ my $path = shift; if(-f $path or -l $path){ return undef; } if(-d $path){ my %directory; opendir PATH, $path or die "Can't opendir $path: $!"; my @names = readdir PATH; closedir PATH; for my $name(@names){ next if $name eq '.' or $name eq '..'; $directory{$name} = data_for_path("$path/$name"); } return \%directory; } warn "$path is neither a file nor a directory\n"; return undef; } sub dump_data_for_path{ my $path = shift; my $data = shift; my $prefix = shift || ""; print "$prefix$path"; if(not defined $data){ print "\n"; return; } my %directory = %$data; if(%directory){ print ", with contents:\n"; for(sort keys %directory){ dump_data_for_path($_, $directory{$_}, "$prefix "); } } else { print ", an empty directory\n"; } } dump_data_for_path('.', data_for_path('.'));

入出力結果(Terminal)

$ ./perl_program ., with contents: .DS_Store perl_program untitled folder, with contents: .DS_Store untitled folder, with contents: .DS_Store untitled text 2 untitled text 2 copy untitled text 2 copy 2 untitled text 2 copy 3 untitled text 2 copy 4 untitled folder 2, an empty directory untitled folder 3, an empty directory untitled text 2 untitled text 2 copy untitled text 2 copy 2 untitled text 2 copy 3 untitled text 2 copy 4 untitled folder 2, an empty directory untitled text 2 untitled text 2 copy untitled text 2 copy 2 untitled text 2 copy 3 untitled text 2 copy 4 $