[Perl]フォルダ内のファイル一覧を取得

# フォルダ内のファイル一覧を取得する
use strict;
use utf8;
my $dir = "."; # カレントディレクトリ
my $file;
my @fileList;
opendir(DH, $dir) or die "$dir:$!";
while ($file = readdir DH) {
  print "$file\n";
  push(@fileList, $file);
}
print "\n" . "@fileList" . "\n";

実行結果

> perl dirfiles.pl
.
..
a.txt
b.txt
c.txt
dirfiles.pl
. .. a.txt b.txt c.txt dirfiles.pl

カレントディレクトリ (.), 上位ディレクトリ (..) を除く場合は正規表現の if 文で外す

opendir(DH, $dir) or die "$dir:$!";
while ($file = readdir DH) {
  next if ($file =~ /^\.{1,2}$/);
  print "$file\n";
  push(@fileList, $file);
}