WhereToStart

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

perl

Perlでフォルダ内のファイル一覧をファイルに書き出す

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

ただのPerlの文法メモ

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