XREAのバージョンアップで動作しなくなったperlのスクリプト。
まず、エラーの内容を表示させるために、
#!/usr/bin/perl
の下に
use CGI::Carp qw(fatalsToBrowser);
を挿入。
私の環境では、jcode.plにエラーが出ているケースがほぼすべて。
jcodeの最終版は、2.13(2000/09/29)のようですが、これでもダメです。
後継版は複数あるようですが、そのまま入れ替えで動作するのが下記のアドレスにあるjacode.plというもの。
https://metacpan.org/dist/Jacode/view/lib/jacode.pl
左上の「Source (raw)」と表示されている部分の、「(raw)」のところにコードがあるのですが、ブラウザに表示させても文字化けするので、「(raw)」のところで右クリックして、「名前をつけてリンクを保存」で、リンク先をそのままファイルに保存します。jacode.plというファイル名で保存されます。
このファイルをスクリプトがあるディレクトリにコピーします。
そして、perlファイルの
require './jcode.pl';
を
require './jacode.pl';
と「a」という1文字を付け加えます。
またにスクリプトに
require 'jcode.pl';
というように「./」がなったのですが、ない場合は、「./」をつけます。
コメント