Perl のバージョンが 5.10 くらいまでは jcode.pl 同梱された CGI を使うことも多かったようですが、もう最近ではあまり見なくなりましたね。
サーバーに入っている Jcode.pm を使うのが普通だと思いますが、お客様のサーバー移転のために色々調査していて久しぶりに見かけました。
Perl のバージョンが 5.16 くらいに上がるとエラーを吐くようです。
うーん、どうしたもんか・・・。
defined(%hash) is deprecated at jcode.pl line ～
ネットに修正方法があったので、ポイントを転記しておきます。
どのサイトでも同じことを書いてますが、該当箇所はここ。
sub z2h_euc サブルーチン内 &init_z2h_euc unless defined %z2h_euc_inited; sub z2h_sjis サブルーチン内 &init_z2h_sjis unless defined %z2h_sjis_inited;
いずれも、”unless defined %～” というのを使っています。ここがポイントです。これが引っかかっていますので、書き方を修正します。
修正は簡単で、”unless defined %” → “if !%” に書き換えるだけ。
sed コマンドでワンライナーでいけます。
sed -i "s/unless defined %/if \!%/g" jcode.pl