フォルダに入っているファイルの取得

質問

フォルダ/abcに入っている、JPGの画像のファイルを配列@defに取得するコードをお願いします。

回答No.2

Ethersky · ベストアンサー

.jpegや.jpgという名前の入ったディレクトリという可能性もあるので一応ファイルであることを確認しておいたほうがいいです。
また。
.jpgおよび.jpegの後ろにまだ文字があることも考えられるので、末尾であることを指定した方がいいです。

以上をまとめると、

opendir(DIR,'/abc');
@def = grep(/\.jpe?g$/i && -f "/abc/$_",readdir(DIR));
closedir(DIR);

となります。

お礼

ありがとうございます、
ディレクトリの読み方が分かりました、
他のPerlに利用してみます。

回答No.1

moon_piyo

opendir(DIR, '/abc');
@def = grep /\.jpe?g/i, readdir(DIR);
closedir(DIR);

でどうでしょう