▼スレッド
│
└◇671:Re[4]:ニューゲームについて。 [戒] 07/18 15:50

　└◇673:Re[5]:ニューゲームについて。 [哲] 07/18 15:56
　　└◇674:Re[6]:ニューゲームについて。 [戒] 07/18 16:02
　　　└◇675:Re[7]:ニューゲームについて。 [哲] 07/18 16:34
　　　　└◇676:解決〜★ [戒] 07/18 17:22<-last

指示通りに、
以下のように変更し、
出来なかったので文法チェックをしたところ、
Can't find string terminator "ATTENTION" anywhere before EOF at /home/imaginaryspace/cgi-bin/sos2.cgi line 357.
っと出ました。

３５７行目は
「rint <<ATTENTION;」←の部分です。
（下より参照。）

# Sub New Game #
sub new_game {
　　　　&form('start');
　　　　print <<ATTENTION;
　　　　<tr><td width=50% align=center><font color=gray>
　　　　注意事項<br>
　　　　ゲームを終了する時は、<br>
　　　　「町で保存」か「人里離れて保存」をしてから<br>
　　　　ゲームを終了するようにしてください。<br>
　　　　戦闘や商品の買取などをした時には、<br>
　　　　極力相手のプレイヤーにお礼を言いましょう。<br>
　　　　プレイ人数が３人以上の時は<br>
　　　　プレイする事を禁止します。<br>
　　　　人数が減るまで待ちましょう<br>
　　　　</font></td>
　　　　ATTENTION
　　　　print qq|<tr><table border=0 cellspacing=0 cellpadding=5 align=center>\n|;
　　　　print qq|<tr><td colspan=2 align=center><b>新規登録</b></td></tr>\n|;
　　　　print qq|<tr><td>名前</td><td><input type=text name=name></td></tr>\n|;
　　　　print qq|<tr><td>パスワード</td><td><input type=password name=pass></td></tr>\n|;
　　　　print qq|<tr><td>確認のためもう一度</td><td><input type=password name=pass2></td></tr>\n|;
　　　　print qq|<tr><td>職業</td>\n|;
　　　　@joblines = &opendat($jobdat);
　　　　print qq|<td><select name=job>\n|;
　　　　foreach $line (@joblines) {
　　　　　　　　($job,$others) = split(/<>/,$line);
　　　　　　　　print qq|<option value="$job">$job\n|;
　　　　}
　　　　print qq|</select></td></tr>\n|;
　　　　print qq|<tr><td colspan=2 align=right>\n|;
　　　　&OKbuttoninform('','make_new');
　　　　print qq|</td></tr></table></td></tr>\n|;
　　　　&form('end');
}

> 　　　　print <<ATTENTION;
> 　　　　ATTENTION
を
print <<ATTENTION;
ATTENTION
(どちらも先頭のタブを消しただけ)
にしてみて下さい。

ありがとうございます。
一応、出来たのですが（ｃｇｉ自体は）
フレーム？が上下に分かれてしまっています（^^;
左右に分けたかったのですが･･･。
デフォルトの四角が二つくっついた感じで、
右は入力関連があって、
左が空欄になっていましたが、
そこに入れる感じに･･･。

現状↓
# Sub New Game #
sub new_game {
　　　　&form('start');
print <<ATTENTION;
　　　　<tr><td width=50% align=center><font color=gray>
　　　　注意事項<br>
　　　　ゲームを終了する時は、<br>
　　　　「町で保存」か「人里離れて保存」をしてから<br>
　　　　ゲームを終了するようにしてください。<br>
　　　　戦闘や商品の買取などをした時には、<br>
　　　　極力相手のプレイヤーにお礼を言いましょう。<br>
　　　　プレイ人数が３人以上の時は<br>
　　　　プレイする事を禁止します。<br>
　　　　人数が減るまで待ちましょう<br>
　　　　</font></td>
ATTENTION
　　　　print qq|<tr><table border=0 cellspacing=0 cellpadding=5 align=center>\n|;
　　　　print qq|<tr><td colspan=2 align=center><b>新規登録</b></td></tr>\n|;
　　　　print qq|<tr><td>名前</td><td><input type=text name=name></td></tr>\n|;
　　　　print qq|<tr><td>パスワード</td><td><input type=password name=pass></td></tr>\n|;
　　　　print qq|<tr><td>確認のためもう一度</td><td><input type=password name=pass2></td></tr>\n|;
　　　　print qq|<tr><td>職業</td>\n|;
　　　　@joblines = &opendat($jobdat);
　　　　print qq|<td><select name=job>\n|;
　　　　foreach $line (@joblines) {
　　　　　　　　($job,$others) = split(/<>/,$line);
　　　　　　　　print qq|<option value="$job">$job\n|;
　　　　}
　　　　print qq|</select></td></tr>\n|;
　　　　print qq|<tr><td colspan=2 align=right>\n|;
　　　　&OKbuttoninform('','make_new');
　　　　print qq|</td></tr></table></td></tr>\n|;
　　　　&form('end');
}

ATTENTIONの真下の
> 　　　　print qq|<tr><table border=0 cellspacing=0 cellpadding=5 align=center>\n|;
を
> 　　　　print qq|<td><table border=0 cellspacing=0 cellpadding=5 align=center>\n|;
にしたらどうでしょう？(<tr>を<td>にしただけ)

迅速な対処ありがとうございました！
無事解決いたしました〜。
とても助かりました♪