perlはたまに使うのだけれどなかなか関数を覚えていない。openとかopendirとか使うたびに引数の渡し方を調べている気がする。ウェブ上に残しておく方が後で検索しやすいので残しておく # 指定したディレクトリのファイル名から' ()'を取り去りアンダースコア…