ディレクトリ内のファイル名の取得

$dirにディレクトリのパスが入っているとする。

opendir (DIR , $dir) || die "Cannot open dir $dir" ;
my @filelist = readdir(DIR);
}
closedir(DIR) ;

ファイル数は、「.」と「..」も入るので、実際リストを使うときはその二つを取り除くこと。