myback.plにはバグがある。
このPerlスクリプトは
を前提としているのだが、shiftjisの場合、ディレクトリの末尾の文字が特定の文字で終わっている場合にコピーがうまく行えなくなる。
特定の文字というのは「表」などの2バイト目に「/」を含む文字だ。
この問題を回避するには、File::Copyモジュールを使わずにコピーをするくらいしか思い浮かばない。他の方法で回避できないかどうかをいろいろ考えてみたのだが、このスクリプトを生かす限りうまく行う方法はなさそう。そしてこのスクリプト以外書く気がない...。
shiftjisなんて嫌いだ。