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で1ヵ所、jcordpl.cgiで2ヵ所の
definedを削除したら上手くいきました。

ご面倒をおかけしました。
また分からないことがありましたら、よろしくお願いします。


2014/06/27(Fri) 19:49
No.554 Re: No.539と同じエラーについて - GEN
 

うまく動いているようでよかったです。
私のほうでもそのうちこの対応が必要かもしれません。

2014/06/29(Sun) 20:58
Eメール
お名前
題 名  ※投稿キーは必須です!
本文
URL
アイコン   [イメージ参照]
暗証キー (英数字で8文字以内)
投稿キー (投稿時 投稿キー を入力してください)
文字色