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

eval() ()の中にPerlの処理を書く。中の処理がエラーの場合スクリプト自体が終了してしまうような命令を書くときに使える。 たとえエラーになってもスクリプトが終了しない。 exit if $@ if文は１行で書くことができる。またその場合処理が先にきて、条件がi…