プログラミング学習の記録 629.2 8章(ファイルハンドルへのリファレンス)の練習問題3 『続・初めての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) の8章(ファイルハンドルへのリファレンス), 8.6(練習問題)、3を解いてみる。

 

3.

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

コード(TextWrangler)

#!/usr/bin/perl
use strict;
use warnings;
use IO::Dir;

my @dirs=map{IO::Dir->new($_)} grep{-d} @ARGV;
foreach (@dirs){
  while(defined(my $file=$_->read)){
    print $file."\n";
    }
}

入出力結果(Terminal)

$ ./my_program IO-1.25 Sample my_program . .. blib ChangeLog IO.bs IO.c IO.o IO.pm IO.xs lib Makefile Makefile.PL MANIFEST META.yml pm_to_blib poll.c poll.h poll.o README SIGNATURE t . .. Sample_1 sample_1.txt