No.539と同じエラーについて - ティアラ 2014/06/26(Thu) 17:04 No.549
├ 追記 - ティアラ 2014/06/26(Thu) 19:43 No.550
├ Re: No.539と同じエラーについて - GEN 2014/06/26(Thu) 22:19 No.551
├ Re: No.539と同じエラーについて - GEN 2014/06/26(Thu) 22:30 No.552
├ Re: No.539と同じエラーについて - ティアラ 2014/06/27(Fri) 19:49 No.553
└ Re: No.539と同じエラーについて - GEN 2014/06/29(Sun) 20:58 No.554
No.549 No.539と同じエラーについて - ティアラ
 |
No.539と同じ内容の質問をさせていただきます。
エラー内容は下記のようなメッセージです。
programのinc-turn.cgi 285行目あたりにエラーが発生
defined(%hash) is deprecated at・・・・
CGIについては全く分かりませんので、ご指導いただきたいと思います。
どうぞよろしくお願いします。
|
2014/06/26(Thu) 17:04
No.550 追記 - ティアラ
|
サーバーは、こちらと同じ「さくら」です。
現在はPerl 5.14.4 [標準のPerl]になっているようです。
|
2014/06/26(Thu) 19:43
No.551 Re: No.539と同じエラーについて - GEN
 |
#市場在庫上限下限チェック＆補正
CheckWholeStore();
#イベント終了処理
@event::DT=@DT;
@event::ITEM=@ITEM;
my %group=();
if(defined(%DTevent))
の最後の行を、
if((%DTevent)
としてみるとどうでしょうか。
イベントの終了判定のようですので、一見直っているようでも、イベントが終わらずにいつまでも続いているようだと失敗です。
もしくは、
if(defined(%DTevent))
{
を消してしまってもPerlだと動作する気もします。
この場合、317行目の
} ← この閉じ括弧も消してください。
#イベント開始処理
|
2014/06/26(Thu) 22:19
No.552 Re: No.539と同じエラーについて - GEN
|
正しくは、
if(%DTevent)
に置き換えてください。
こちらで試したところ、おそらく動作大丈夫でした。
ほかでも、if(defined(%○○))
があってエラーが出るようでしたら、
if(%○○)
にしてもたぶんいいと思います。この辺は商人物語というよりPerl全般のことなので、専門家に聞いてみないとなんともいえないのですが。
|
2014/06/26(Thu) 22:30
No.553 Re: No.539と同じエラーについて - ティアラ
|
試しに動作確認までしていただいて、ありがとうございます。
早速No.552のご指示通り
inc-turn.cgiのほかにguild.cgiで１ヵ所、jcordpl.cgiで2ヵ所の
definedを削除したら上手くいきました。
ご面倒をおかけしました。
また分からないことがありましたら、よろしくお願いします。
|
2014/06/27(Fri) 19:49
No.554 Re: No.539と同じエラーについて - GEN
|
うまく動いているようでよかったです。
私のほうでもそのうちこの対応が必要かもしれません。
|
2014/06/29(Sun) 20:58
