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

>>673
・とあるディレクトリd0以下に存在する全てのディレクトリをなぞる。

・このとき、今位置するディレクトリdnの相対的な深さをdとして、
　d個のピリオドをディレクトリdnの名前の前に足した文字列　をファイルFに出力する。

・また、このとき、今位置するディレクトリdnにテキストファイルがあれば、
　d+1個のピリオドをテキストファイルtnの名前の前に足し、拡張子.txtを除いた文字列　をファイルFに出力する。
・さらに、そのテキストファイルtnの内容をそのままファイルFに出力する。
　テキストファイルtnの内容の各行頭には、ピリオドはつけない。
　テキストファイルtnの内容のとある行頭にピリオドがある場合は、ピリオドの前に半角空白を入れる。

このような仕様です


>>674
ありがとうございます

まったくの期待通りですが、
ピリオドの数が合わない部分がありました

下のようなディレクトリで試しました
ttp://www1.axfc.net/uploader/Sc/so/128829.zip
ウイルスチェックはしましたが、念のためもう一度お願いします