358605
++takaqの日記++


【私のカウンタ】


2018年9月
      1
2345678
9101112131415
16171819202122
23242526272829
30      



月の日記を
 OR AND
スペースで区切って複数指定可能
Windows の Perl で (今更ですが・・・)jcode.plをrequireしたらエラー
わけあって、Windows上でPerl使って cgi を動かす必要が出た。
それも、スクリプトとjcode.plは、2003年製である。
このWindows上のPerlはちょっと最近のもの。
それで、お気に入りのcgiスクリプトを実行したら「502エラー」がブラウザ上に表示された。
それで、サーバー上でコマンドプロンプトを開き、Perl xxxxx.cgiを実行した。
そしたら、・・・

defined(%hash) is deprecated at ../perllib/jcode.pl line 684.
(Maybe you should just omit the defined()?)

となってしまった。
結構ハマッたけど、検索してみたらあっさりヒットした。

http://icepotato.cocolog-nifty.com/blog/2014/04/jcodepldefinedh.html
(jcode.plでdefined(%hash) is deprecated at ../perllib/jcode.pl line 684.のエラー)

コメント投稿不可だし、メールアドレスの記載もないのでここにてお礼。
助かりました。ありがとうございます。

正解ソースだけ下にお借りします。

sub z2h_euc {
local(*s, $n) = @_;
&init_z2h_euc if !%z2h_euc;
$s =~ s/($re_euc_c|$re_euc_kana)/$z2h_euc{$1} ? ($n++, $z2h_euc{$1}) : $1/geo;
$n;
}

sub z2h_sjis {
local(*s, $n) = @_;
&init_z2h_sjis if !%z2h_sjis;
$s =~ s/($re_sjis_c)/$z2h_sjis{$1} ? ($n++, $z2h_sjis{$1}) : $1/geo;
$n;
}

それと、上とは違うけど、ブラウザでFTPサイトにアクセスすると「FTPフォルダ一覧」が表示それない状況に陥った。
これもハマッタけど、よくよく見たら設定箇所があった。

IE -> インターネツトのプロパテイ -> 詳細設定 -> パッシブ FTP(ファイアウォールおよび DSL モデム互換用)を使用する・・・のチェックを外してOK

解決でした。



2018年9月17日(月) No.2549

通りすがりの...  2018/09/17/21:32:58   No.2550
サイトを参考にさせていただいているものです。若々しいですね。良いですね。

takaq  [E-Mail] [URL]  2018/09/18/15:08:16   No.2551
通りすがりの... さん。
当サイトへの訪問と感想記帳ありがとうございます。
とてもうれしく思います。
今後ともよろしくお付き合いください。

こちらこそ!  2018/09/18/20:42:27   No.2552
あ、はい!こちらこそです。自宅サーバーの公開方法大変分かり易くまとまっており、大変参考になります。ありがとうございます。私もこれから実践してみるつもりです。

Page/ [1]
No. PASS
No. USER PASS


Photo by NOION
++HOME++
[Admin] [TOP]
shiromuku(cu3)DIARY version 1.70