◆ はじめに
本ページは、私がPerlを習得した時(いや習得中)のノートです。
ごく普通の言語(COBOL,C,Java,VB等)を知っている人が、Perlをやり始めるといろいろと悩むことがあります。
それは、
- 暗号のような記号のオンパレード
- 文脈(コンテキスト)によって意味の違う関数
- 構造体がないデータ構造
- 同名で意味が違う変数
- 比較先がない比較
- 代入文がないのに代入される
- 正規表現の拡張
- return文がないリターン値
- foreach文がいつのまにかfor文に
- サブルーチンなのに関数に
- ファイル名がいつのまにかハンドル名に
です。
本ページは、そのようなハードルを一つ一つクリアにしていけたらと思います。
そして、本ページが何かのお役に立てれば幸いです。では、ごゆっくりご覧ください。
尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくPerlノート掲示板へご指摘ください。
◆ サイト最新情報
◆ コンテンツ
2009-04-15 フォルダ配下の一覧を取得する関数
Perlでフォルダ内の一覧は、組み込み関数のglobとかreaddirなどで取得することができますが、フォルダ配下を再帰的に一切合切取得することは出来ません。
なので、 標準モジュールFile::Findを利用して、フォルダ配下を再帰的に一切合切取得する『get_DirFiles』という関数を作ってみました。
引数は2つで、第一引数はフォルダパス、第二引数はモードで以下の通りです。
- モード=0:ファイル&フォルダすべて取得(デフォルト値)(第二引数を省略するとコレ)
- モード=1:ファイルのみ取得
- モード=2:フォルダのみ取得
◆サンプルソース
use strict;
use warnings;
my @file = get_DirFiles('/ddd', 1);
for my $wk (@file) {
print $wk, "\n";
}
sub get_DirFiles {
use File::Find;
my $wkpath = $_[0];
my $wkopt = $_[1];
$wkopt = 0 if (!defined($wkopt));
$wkopt = 0 if ($wkopt > 2);
my (@files, @ansfiles);
my @dir_search_path = ($wkpath);
find(sub {push @files, $File::Find::name;}, @dir_search_path);
if ($wkopt == 0) {
@ansfiles = @files;
}
else {
if ($wkopt == 2) {
for my $wkfile (@files) {
if (-d $wkfile) {
push @ansfiles, $wkfile;
}
}
}
else {
for my $wkfile (@files) {
if (-f $wkfile) {
push @ansfiles, $wkfile;
}
}
}
}
return @ansfiles;
}
◆補足
findの第1引数は、関数リファレンスを指定します。
フォルダ内にファイルやフォルダが見つかるたびに関数リファレンスの関数が実行されます。
サンプルでは、見つけたファイルやフォルダをpushで@filesに押し込んでいます。
尚、第2引数は、検索したいパスをリストで複数の指定ができますが、サンプルでは単一の仕様にしています。
◆ おすすめ Perl本
■ 続・初めてのPerl 改訂版
『初めてのPerl』の次ぎに読むと吉です。
結構いいですが・・・、初心者にはちょっと難しいかもです。
■ 結城浩のPerlクイズ
この本には、ちゃいちゃんパパの小話しが載っています(謎)。
ある程度、Perlを理解している人には、たまらない内容になっています。さすが結城先生だな!
■ 新版Perl言語プログラミングレッスン入門編
実は、私はまだ読んでいませんが、結城先生の本なので良くないはずがありません。
■ CGI&Perlポケットリファレンス (Pocket reference)
この本は、非常に役に立ちます。ちょっと調べるのに最適です。サンプルも説明も的を射ています。
■ Perlベストプラクティス
一読の価値有りだと思います。
■ プログラミングPerl〈VOLUME1〉
ご存知、Perl本の聖書、ラクダ本(上)です。
■ プログラミングPerl〈VOLUME2〉
ご存知、Perl本の聖書、ラクダ本(下)です。
◆ おわりに
最後に、本ページが、何かのお役に立てれば幸いです。
尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくPerlノート掲示板へご指摘ください。