プログラミング学習の記録 618.2 3章(モジュールの使い方)の練習問題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) の3章(モジュールの使い方), 3.10(練習問題)、1を解いてみる。

 

1.

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

コード(TextWrangler)

#!/usr/bin/perl
use strict;
use warnings;
use File::Spec;
use Cwd;

my $cwd=getcwd;

print map{"    ".
   File::Spec->catfile($cwd,$_).
   "\n"
   } glob(".* *");

カレントディレクトリはホームディレクトリ(~kamimura)

入出力結果(Ternimal)

$ ./documents/my_program /Users/kamimura/. /Users/kamimura/.. /Users/kamimura/.bash_history /Users/kamimura/.bash_profile /Users/kamimura/.bash_profile.pysave /Users/kamimura/.cache /Users/kamimura/.dropbox /Users/kamimura/.DS_Store /Users/kamimura/.emacs.d /Users/kamimura/.emacs.el /Users/kamimura/.emacs.el~ /Users/kamimura/.fontconfig /Users/kamimura/.fonts /Users/kamimura/.fonts.cache-1 /Users/kamimura/.mono /Users/kamimura/.swo /Users/kamimura/.swp /Users/kamimura/.Trash /Users/kamimura/.viminfo /Users/kamimura/.wing101-4 /Users/kamimura/.Xauthority /Users/kamimura/.Xcode /Users/kamimura/.Xmodmap /Users/kamimura/Calibre Library /Users/kamimura/Desktop /Users/kamimura/Documents /Users/kamimura/Downloads /Users/kamimura/Dropbox /Users/kamimura/KindleGen /Users/kamimura/Library /Users/kamimura/Movies /Users/kamimura/Music /Users/kamimura/Pictures /Users/kamimura/Projects /Users/kamimura/Public /Users/kamimura/Sites