Perlについての質問箱 43箱目

ここのレスの要件を満たすように書いたスクリプトです
アウトラインプロセッサ Part17
http://pc12.2ch.net/test/read.cgi/software/1268128564/224

ttp://codepad.org/jxOB6Qio

ディレクトリをなぞってテキストをピリオド階層テキストにするスクリプトです
危ないところとかないでしょうか