use strict use warnings my $dir = "任意のフォルダの絶対パス"; chdir $dir; my @files = glob "*"; open(out, ">filelist.txt); print join("\n", @files); close(out); filelist.plみたいなファイル名にして適当なところに保存。 ファイルの一覧を取得し…