Perl - モジュールの使い方(Cwd(関数インタフェース)、File::Spec(オブジェクト指向インタフェース))

続・初めてのPerl 改訂版
Randal L. Schwartz
brian d foy, Tom Phoenix 著

開発環境

• 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) の3章(モジュールの使い方),　3.10(練習問題)1を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉

1.

モジュールの使い方(grepでのサイズによるフィルタリング、map)のコードをい再利用。

コード(TextWrangler)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.012;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';
use Cwd;
use File::Spec;

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

入出力結果(Terminal)

$ ./sample.pl
    /Users/kamimura/Documents/perl/.
    /Users/kamimura/Documents/perl/..
    /Users/kamimura/Documents/perl/.DS_Store
    /Users/kamimura/Documents/perl/.out
    /Users/kamimura/Documents/perl/barney
    /Users/kamimura/Documents/perl/betty
    /Users/kamimura/Documents/perl/coconet.dat
    /Users/kamimura/Documents/perl/date.txt
    /Users/kamimura/Documents/perl/fred
    /Users/kamimura/Documents/perl/gilligan.info
    /Users/kamimura/Documents/perl/ginger.info
    /Users/kamimura/Documents/perl/link_test
    /Users/kamimura/Documents/perl/log_file.txt
    /Users/kamimura/Documents/perl/lovey.info
    /Users/kamimura/Documents/perl/ls.err
    /Users/kamimura/Documents/perl/ls.out
    /Users/kamimura/Documents/perl/maryann.info
    /Users/kamimura/Documents/perl/monkeyman.info
    /Users/kamimura/Documents/perl/numbers
    /Users/kamimura/Documents/perl/Oogaboogoo
    /Users/kamimura/Documents/perl/perl_kamimura_blog
    /Users/kamimura/Documents/perl/perl_program.bak.bak
    /Users/kamimura/Documents/perl/perl_program.pl
    /Users/kamimura/Documents/perl/perl_program1
    /Users/kamimura/Documents/perl/perl_program1.bak
    /Users/kamimura/Documents/perl/professor.info
    /Users/kamimura/Documents/perl/result
    /Users/kamimura/Documents/perl/sample
    /Users/kamimura/Documents/perl/sample.pl
    /Users/kamimura/Documents/perl/sample.pl.bak
    /Users/kamimura/Documents/perl/sample.pl.bak.bak
    /Users/kamimura/Documents/perl/sample_folder
    /Users/kamimura/Documents/perl/sample_text
    /Users/kamimura/Documents/perl/sample_text.out
    /Users/kamimura/Documents/perl/sample_text.out.bak
    /Users/kamimura/Documents/perl/skipper.info
    /Users/kamimura/Documents/perl/some_folder
    /Users/kamimura/Documents/perl/sortable_hash
    /Users/kamimura/Documents/perl/standings.db
    /Users/kamimura/Documents/perl/test.bak
    /Users/kamimura/Documents/perl/test.out
    /Users/kamimura/Documents/perl/test.txt
    /Users/kamimura/Documents/perl/test_folder
    /Users/kamimura/Documents/perl/test_link
    /Users/kamimura/Documents/perl/thurston.info
    /Users/kamimura/Documents/perl/tmp_folder
    /Users/kamimura/Documents/perl/total_bytes.dat
$