Perlでフォルダ内のファイル一覧をファイルに書き出す
use strict use warnings my $dir = "任意のフォルダの絶対パス"; chdir $dir; my @files = glob "*"; open(out, ">filelist.txt); print join("\n", @files); close(out);
filelist.plみたいなファイル名にして適当なところに保存。
ファイルの一覧を取得したいパスを$dirに入れて実行。
フォルダ内にfilelist.txtというファイルが出来上がる。
中身はファイル名の一覧。
このソースコードの色変えたいなぁ。