▼スレッド
│
└◇1150:lockについて [zeks] 02/25 10:56

　└◇1151:Re:lockについて [moon] 02/25 21:19
　　└◇1152:Re[2]:lockについて [zeks] 02/25 23:46
　　　└◇1153:Re[3]:lockについて [moon] 02/26 13:39
　　　　└◇1154:Re[4]:lockについて [zeks] 02/26 16:16
　　　　　└◇1155:Re[5]:lockについて [moon] 02/26 16:26
　　　　　　└◇1156:Re[6]:lockについて [zeks] 02/26 20:26
　　　　　　　└◇1157:Re[7]:lockについて [moon] 02/27 00:19
　　　　　　　　└◇1158:Re[8]:lockについて [zeks] 02/27 14:33<-last

コンテニューしようとすると500エラーがでて、
sos.lockがかかります。
TOPのリストは表示されるんですが、どうしてエラーが出るんでしょう？
どなたかご教授願います

> コンテニューしようとすると500エラーがでて、
> sos.lockがかかります。
> TOPのリストは表示されるんですが、どうしてエラーが出るんでしょう？
> どなたかご教授願います

スクリプトを分割していたり他の改造を組み込んでいたりする場合はrequireのし忘れである可能性があります。
エラーが起こる前に何か変更を行った場合は、その変更に失敗しているのかもしれません。

# 詳細が書いてありませんので具体的なことは分かりませんが。

装備できる種類を増やそうかとuse_afterを
if ($sts =~ /Q[swatcgyhdr]/)｛・・・・・
elsif ($sts =~ /(Cr)/) { &arm($1,'Qc') }
elsif ($sts =~ /(Gr)/) { &arm($1,'Qg') }
以下略
みたいに変えたんですけどこれがだめだったんですかねえ

> 装備できる種類を増やそうかとuse_afterを
> if ($sts =~ /Q[swatcgyhdr]/)｛・・・・・
> elsif ($sts =~ /(Cr)/) { &arm($1,'Qc') }
> elsif ($sts =~ /(Gr)/) { &arm($1,'Qg') }
> 以下略
> みたいに変えたんですけどこれがだめだったんですかねえ

分割していないのでしたら、少なくとも文法間違いではないです。
ローカルテストを行っていない場合はそれを行ってください。設定によってエラーの詳細をログファイルに残すことが出来ますので。

ローカルでやってみても同じ結果になります
サーバソフトはAn Httpdを使っているのですが
ログが出力されないです
設定はしたつもりなんですけど＾＾；

> ローカルでやってみても同じ結果になります
> サーバソフトはAn Httpdを使っているのですが
> ログが出力されないです
> 設定はしたつもりなんですけど＾＾；

AN HTTPDでしたら、Perlの実行プログラムを指定するところがありますのでそこにperl.exeのパスではなくperlis.dllのパスを入力してください。
そうすると、perlis.dllのあるディレクトリにPerlIS-Err.logというログファイルが作成されます。

ありがとうございます、できました
どうも”Illegal division by zero”だったみたいです
hprecoverの
if ($Hfg eq 'NS') { $rchp = int($now / (($def_hn - $tmb) * 60)) }
で発生しているみたいですが
どこが影響したんでしょう＾＾；

> ありがとうございます、できました
> どうも”Illegal division by zero”だったみたいです
> hprecoverの
> if ($Hfg eq 'NS') { $rchp = int($now / (($def_hn - $tmb) * 60)) }
> で発生しているみたいですが
> どこが影響したんでしょう＾＾；

文字通り「0で除算した場合のエラー」なので、その行でなら$def_hn、$def_pz、$def_hmの設定値が関係しています。
特に、$def_hnが0または$def_hmと同じでないかを確認してください。

どうも$def_hmと同じになってたようです
変えたのはだいぶ前なのですが今になってでてきたんですね＾＾；
ごていねいにどうもありがとうございました、助かりました〜
でわ、がんばって改造します＾＾