futabooo blog

色々手をつけすぎてすぐに忘れるので備忘録

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というファイルが出来上がる。
中身はファイル名の一覧。


このソースコードの色変えたいなぁ。