Path::Class

ディレクトリ配下にあるファイルリストを作成（再帰的）

my @files;
Path::Class::Dir->new("/home/dsktnk/www/")->recurse(
    callback => sub {
        my $file = shift;
        return if $file->is_dir; #ディレクトリはスキップ
        push(@files, $file);
    },
);

ディレクトリ配下のディレクトリとファイルを表示

my @dir = dir($path)->children;
@dir = sort {$b->is_dir <=> $a->is_dir} @dir;
 
for my $d(@dir){
  my $basename = $d->basename;
  my $fileurl = $d->relative;
  my $mtime = localtime($d->stat->mtime);
 
  if ($d->is_dir){
    print qq|<b>$basename</b>｜|;
  }
 
  elsif($d->is_dir ne 1){
    print qq|<br>$basename</a>　[$mtime]|;
  }
}

ディレクトリ配下にあるディレクトリリストと、ファイルリストを作成

my @dir = dir($path)->children;
my (@dirs,@files);
for my $d (@dir){
  if ($d->is_dir){
    push(@dirs, $d);
  }else{
    push(@files, $d)
  }
}

めも

• absolute 絶対パス
• relative 相対パス
• basename ファイルネーム
• is_dir ディレクトリだった場合1
• next if $file->is_dir; #ディレクトリはスキップ
• my $file = $dir->next
• サブディレクトリの取得　my $subdir = $dir->subdir('baz'); #foo/bar/baz
• 親ディレクトリの取得　my $parent = $dir->parent; # foo

• ファイルの中身をすべて取得
• eval { $f = $file->slurp; };
• if ($@) { die "cannot open file : $!"; }