▼スレッド
│
└◇604:Re[3]:あの･･･ [moon] 05/24 08:54
└◇605:Re[4]:あの･･･ [戒] 05/24 13:19
└◇606:Re[5]:あの･･･ [moon] 05/24 13:52
└◇607:Re[6]:あの･･･ [戒] 05/24 14:38
└◇608:Re[7]:あの･･･ [moon] 05/24 14:47
└◇609:Re[8]:あの･･･ [戒] 05/24 14:54
└◇610:Re[9]:あの･･･ [moon] 05/24 17:23
└◇611:Re[10]:あの･･･ [戒] 05/24 18:07
└◇612:Re[11]:あの･･･ [moon] 05/24 18:44
└◇613:Re[12]:あの･･･ [戒] 05/24 19:09
└◇614:Re[13]:あの･･･ [moon] 05/24 19:19
└◇615:Re[14]:あの･･･ [戒] 05/24 19:29<-last
> なるほどスレッド一覧
> だからメールアドレスが
> 公開されていなかったのですね＾＾
> それでは、送信させて頂きます〜。
特に問題が無いと感じたのでこちらで進めましょう。
とりあえず、そのエラーメッセージを書いてみてください。
あと、エラー行として表示される行の周辺に書いてある命令文も。
Missing right curly or square bracket at (eval 1) line 2614, at end of lineスレッド一覧
syntax error at (eval 1) line 2614, at EOF
↑がエラーメッセージです。
最後のサブルーチンが
下のです。
# Sub Decode #
sub decode {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
$post = 1;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
} else { @pairs = split(/&/, $ENV{'QUERY_STRING'}); }
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/"/"/g;
$value =~ s/\,/，/g;
$value =~ s/△/▲/g;
$value =~ s/\r\n/<br>/g;
$value =~ s/\r/<br>/g;
$value =~ s/\n/<br>/g;
$Fm{$name} = $value;
}
}
[EOF]（ここで2608行目）
っで終わっています･･･。
> Missing right curly or square bracket at (eval 1) line 2614, at end of lineスレッド一覧
> syntax error at (eval 1) line 2614, at EOF
これなら、括弧の不整合です。
エラー行周辺ではなく改造した箇所の{}などの対応がとれているか確認してみてください。
スレッド一覧
foreach $line (@lstlines) {
($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
if ($psp =~ /Nc/ ) { next }
一つ目の追加したところです。
個人的にココの、最初の行の「}」が
足りないと思うのですがどうでしょうか？
もう少し下までコピペする必要があるのなら
指定していただければそこまで張ります＾＾
> 一つ目の追加したところです。スレッド一覧
> 個人的にココの、最初の行の「}」が
> 足りないと思うのですがどうでしょうか？
> もう少し下までコピペする必要があるのなら
> 指定していただければそこまで張ります＾＾
「最後の行」の書き間違いですよね。
載せられた文だと後ろのほうが無いのであからさまに{}の対応が取れていないので、もっと下まで確認してください。
# {}の対応を確認するだけなので聞くことも無いと思うのですが。
# Sub Normal Action #スレッド一覧
sub normal_action {
@rcdlines = &get_user("$Fm{'id'}");
&get_file; &list_in;
print qq|<tr>|;
&form('start');
print qq|<td valign=top>|;
print qq|<font color=#009AFA><br>▼プレイヤーと接触</font><br>\n|;
&input('radio','mode','find_partner',' checked',"他のプレイヤーを探す<br>\n");
&input('radio','mode','note_before','',"メール送信<br>\n");
print qq|<div align=center><select name=pd>\n|;
foreach $line (@lstlines) {
($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
if ($psp =~ /Nc/ ) { next }
if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $mytw = $ptw ; }
else {
if ($tw eq $ptw) { $mark2 = "◆"; }
else { $mark2 = "◇"; }
if ($pav eq 'dead') { $mark = 'style=color:red'; }
else { $mark = 'style=color:black'; }
print qq|<option value="$pid" $mark>$mark2$pid：$pnm($pjb)\n|; }
}
print qq|</select> ID：|;
&input('text','pd2','',' size=4','');
print qq|</div>\n|;
&OKbuttoninform('n');
&form('end');
&form('start');
print qq|<div align=left>\n|;
&input('radio','mode','find_partner',' checked',"ＮＰＣに会う \n");
print qq|<select name=pd>\n|;
@rcdlines = &get_user("$Fm{'id'}");
foreach $line (@lstlines) {
($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
if ($psp !~ /Nc/ || $tw ne $ptw ) { next }
if ($pjb !~ /△/){
$pichi = "";
$pjob_ = "($pjb)";
}
else{
($pjob_,$pichi) = split(/△/,$pjb);
$pichi = "【$pichi】";
print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
}
print qq|</select>\n|;
print qq|</div>\n|;
&OKbuttoninform('n');
&form('end');
&form('start');
print qq|<font color=#DA70D6>▼行動をする</font><br>\n|;
&input('radio','mode','idou','',"街を出る<br>\n") ;
if ($mysp !~ /Pb/) { &input('radio','mode','find_item',' checked',"<font color=#20b2aa>草原探索</font><br>\n") if ($mytw eq 1); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item2',' checked',"<font color=dimgray>岩山探索</font><br>\n") if ($mytw eq 2); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item3',' checked',"<font color=#20b2aa>博打場探索</font><br>\n") if ($mytw eq 3); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item4',' checked',"<font color=hotpink>街中探索</font><br>\n") if ($mytw eq 4); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item5',' checked',"<font color=#66cdaa>農地探索</font><br>\n") if ($mytw eq 5); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item6',' checked',"<font color=#20b2aa>草原探索</font><br>\n") if ($mytw eq 6); }
print qq|<font color=#4169E1><br>▼アイテム関係</font><br>\n|;
&input('radio','mode','use_before','',"アイテム使用・装備<br>\n")
&input('radio','mode','dump_before','',"アイテムを捨てる<br>\n");
&input('radio','mode','up_before','',"カード化をする<br>\n") if $mysp =~ /Ca/;
&input('radio','mode','down_before','',"ゲインをする<br>\n") if $mysp =~ /Ca/;
&input('radio','mode','stell_before','',"ステラツィオの設定<br>\n") if $mysp !~ /Nf/;
print qq|<font color=gray><br>▼設定変更</font><br>\n|;
&input('radio','mode','goods_before','',"商品の設定<br>\n") if $mysp =~ /Tv/ && $mysp !~ /Nf/;
&input('radio','mode','goods_before',' checked',"商品の設定<br>\n") if $mysp =~ /Nf/;
&input('radio','mode','fee_before','',"治療費の設定<br>\n") if $mysp =~ /Ad|Rv/;
&input('radio','mode','judge_before','',"アイテム鑑定<br>\n") if $mysp =~ /Eo/;
&input('radio','mode','name_before','',"銘入り品の名前を変更する<br>\n") if $mybp =~ /Na/;
&input('radio','mode','com_before','',"コメント文の変更<br>\n");
&input('radio','mode','poem_before','',"詩・日誌を書く<br>\n") if $mysp =~ /Wp/ || $mysp =~ /An/;
&input('radio','mode','lv_before','',"レベルアップする<br>\n") if $mysp !~ /Ng/;
if ($mysp !~ /X/) {
&input('radio','mode','reward','','賞金首に金をかける ID：');
&input('text','pd','',' size=4',' 金額：');
&input('text','price','',' size=5','<br>');
}
print qq|<font color=#CC0033><br>▼保存をしてゲーム終了</font><br>\n|;
&input('radio','mode','norm_save','',"町で保存\n");
&input('radio','mode','hide_save','',"人里離れて保存<br>\n");
&input('radio','mode','levy','',"<font color=red>税の徴収をして保存（注意）</font><br>\n") if $mysp =~ /Lv/;
print qq|<br><b>▼データー管理</b><br>\n|;
&input('radio','mode','del_before','',"キャラを削除\n");
&input('radio','mode','back_up','',"バックアップ\n");
&OKbuttoninform('n');
print qq|</td>|;
&form('end');
}
恐らくっというか
八割方ないと思われます･･･(^^:
さすがに文法チェックくらいはしてください。スレッド一覧
> print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
> }
に}が足りないです。
> &input('radio','mode','use_before','',"アイテム使用・装備<br>\n")
に;がありません。
申し訳ないです････。スレッド一覧
一応自分なりに見たのですが（^^;
一つ自分で発見して
直したのですが、どうもおかしくて･･･。
まさか２つあったとは･･･。
変更したらCGI自体は
無事動きました。
プレイヤー総数がNPCの数になってしまっていて、
NPCのリストの中にNPCが表示されていません･･･。
NPCの質屋にはしっかり
Ncっとスキル追加しておいたのですが。。
> プレイヤー総数がNPCの数になってしまっていて、スレッド一覧
これは状況がわかりません。
総数ってトップページに表示されるものですか？
> NPCのリストの中にNPCが表示されていません･･･。
print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
}
に}を追加するときに後ろに追加していませんか？
}は改造紹介で抜けているところなので勘違いしているかもしれませんが、おそらくは前に付けるのが正しいと思います。
プレイヤー総数は、スレッド一覧
CGIのトップに出ているやつですね。
「現在のプレイヤー総数」の上のです。
はい；；
勘違いしていました。
print qq|<option value="$pid">$pichi$pnm$pjob_\n|;}
}
こういう事になるのかと（滝汗）
直してみたところ無事治りました。
> プレイヤー総数は、スレッド一覧
> CGIのトップに出ているやつですね。
> 「現在のプレイヤー総数」の上のです。
sub list_orderを変更した箇所の!~を=~にすればOKのはずです。
無事問題は解決しました♪スレッド一覧
迅速で的確なサポートで、
とても助かりました。
本当にありがとうございます。
また困った時に
来るかもしれませんが、
そのときはまたよろしくお願いします。