こりゃ便利だ

そんなあなたに、こんなモジュールを書いてみた。

404 Blog Not Found:perl - Dir::Tree つうのを書いてみた

そんなわたしです。ありがとうございます。

ちょっと使ってみた。
404 Blog Not Found:perl - Dir::Tree つうのを書いてみた からソースコードをコピペして、

$ mkdir -p ~/test/Dir
$ vi test/Dir/Tree.pm
(404 Blog Not Found から ソースコードをコピペする)

実行すると、

$ perl -Ilib -MDir::Tree -e 'print Dir::Tree->new(shift)->tree_cmd(1)' .
Unrecognized character \xC2 at Dir/Tree.pm line 67.
Compilation failed in require.
BEGIN failed--compilation aborted.

ありゃ？
ちょっと調べてみると、バックスラッシュが円記号になっちゃってるみたい。
それはバックスラッシュ(\)か円記号（￥）か | ぺんラボブログ
円記号をバックスラッシュに置換して、

$ perl -i.bk -ple 's/\xc2\xa5/\x5c/g;' Dir/Tree.pm 

再実行すると、

$ perl -Ilib -MDir::Tree -e 'print Dir::Tree->new(shift)->tree_cmd(1)' .
|-- Dir
|   |-- Tree.pm
|   |-- Tree.pm.bk

おお、成功！

tree な見た目にはならないけど、Tree.pm を置くことすらできない環境なら、

$ find *
Dir
Dir/Tree.pm
Dir/Tree.pm.bk

くらいで我慢するしかないかな。