File::Find ディレクトリ配下のエントリを再帰的に取得する

File::Findモジュールを使用して、
ディレクトリ配下のエントリを再帰的に取得しています。

#!/usr/bin/env perl

use File::Find;

my $find_dir="./"; # 検索基点となるディレクトリ

find(&wanted,$find_dir);

sub wanted{
  print $File::Find::dir,'/',$_,"\n";
  print $File::Find::name,"\n";
}
スポンサードリンク