perl script の扱い

[yutopia]

obsolete 扱いなのでフェードアウトしてもいいのかもしれませんが、使えそうな物をサルベージして、modern perl で書き直せないかと。

さすがに jperl とかを今時使ってる環境は無いでしょうし、複数のコーディングを使えるようになってますから。

[yutopia]

obsolete 扱いでないツールの中にも perl script が含まれてるので、そちらは jperl を使わないように改変しないといけないです。
やることは以下の通り。

• 入力ファイルのコーディング自動検出 -> やったことないので自身なし。コード決め打ちなら、STDIN を 該当 encoding の binmode で指定してやれば良い。
• 日本語処理 -> 内部コードに decode して入力し、それから処理をしてから出力のコードに encode 後出力する。
• Windows と Un*x 環境で改行コードの扱いが異なるため、 STDIN を binmode にする。
• 同様に、chop を使ってるところは chomp に変更。
• use strict; と use warnings; を追加。 -> 結果、ローカル変数は my で宣言する必要がある。