フォルダ配下の一覧を取得する関数

◆ はじめに

本ページは、私がPerlを習得した時（いや習得中）のノートです。

ごく普通の言語（COBOL,C,Java,VB等）を知っている人が、Perlをやり始めるといろいろと悩むことがあります。

それは、

暗号のような記号のオンパレード
文脈（コンテキスト）によって意味の違う関数
構造体がないデータ構造
同名で意味が違う変数
比較先がない比較
代入文がないのに代入される
正規表現の拡張
return文がないリターン値
foreach文がいつのまにかfor文に
サブルーチンなのに関数に
ファイル名がいつのまにかハンドル名に

です。

本ページは、そのようなハードルを一つ一つクリアにしていけたらと思います。

そして、本ページが何かのお役に立てれば幸いです。では、ごゆっくりご覧ください。

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくPerlノート掲示板へご指摘ください。

◆ サイト最新情報

サイト最新情報（燈明日記）

インデックス

◆ コンテンツ

2009-04-15 フォルダ配下の一覧を取得する関数

Perlでフォルダ内の一覧は、組み込み関数のglobとかreaddirなどで取得することができますが、フォルダ配下を再帰的に一切合切取得することは出来ません。

なので、標準モジュールFile::Findを利用して、フォルダ配下を再帰的に一切合切取得する『get_DirFiles』という関数を作ってみました。

引数は２つで、第一引数はフォルダパス、第二引数はモードで以下の通りです。

モード=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];  # Search path
    my $wkopt  = $_[1];  # 0:All, 1:File, 2:Dir

    $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;
}