ディレクトリ配下のファイル一覧

---

　File::Findモジュールを使うとディレクトリを再帰的にたどることができます。

use strict;
use warnings;
use File::Find;

my $dir = '/home/user1'; # 対象ディレクトリ名(相対パスでもOKです)

find(\&print_file, $dir);

sub print_file {
    my $file = $_;
    my $path = $File::Find::name;
    printf "%s(%s)\n", $file, $path;
}

　次のように処理部分を直接findに渡すこともできます。

use strict;
use warnings;
use File::Find;

my $dir = '/home/user1'; # 対象ディレクトリ名(相対パスでもOKです)

find sub {
    my $file = $_;
    my $path = $File::Find::name;
    printf "%s(%s)\n", $file, $path;
}, $dir;

---

関連項目

・ディレクトリ配下のファイル一覧(Windows用)
・ディレクトリ内のファイル一覧