ＣＧＩのカスタマイズについて

質問

ネットレスキューさんの簡易データベースについて
search.cgiの表示部分でテーブルを一つずつ生成させようと思ったのですがエラーが出ます。
どこが悪いのでしょうか？

----------ここから-------
foreach $data (@NEW) {
($d,$DATE,$PREF,$NAME,$EMAIL,$HURL,$AGE,$HANDLE,$REM) = split(/\,/,$data);

print "<table width="450" border="0" cellspacing="0" cellpadding="0" class="p12_16">\n";
print "<tr>\n";
print "<td colspan="2" bgcolor="#CC0033" height="14"><font color="#FFFFFF">●　$NAME</font></td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td width="70">地域</td>\n";
print "<td width="380">$PREF</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td height="14">Ｅメール</td>\n";
print "<td><a href=\"mailto:$EMAIL\">$EMAIL</a></td>\n";
print "</tr>\n";

---中略----

print "<td height="14">内容</td>\n";
print "<td>$REM</td>\n";
print "</tr>\n";
print "</table>\n";

if ($next_num ne '') {

while (($key,$val) = each %FORM2) {

if ($key ne 'FF') { $buf = "$buf&$key=$val"; }
}

print "<h3>↓<a href=\"search.cgi?$buf&FF=$next_num\">次の$page件</a></h3>\n";
}
}

print "</body></html>\n\n";
exit;
--------------ここまで-----
splitの扱い方が良く分っていません。
御存知の方御指導下さいませ。

回答No.1

sisya · ベストアンサー

splitと言うのは文字列を特定の文字で分割してくれる命令です。
（この場合「,」で区切ります）

エラーの原因ですが、「""」で囲まれた文字列の中に
「"」が描かれてしまっているため、
途中で文字列が解除されてしまいエラーになっています。

４行目から「if ($next_num ne '') {」の部分までの
いたる所に問題がありますので、
以下のように文字列の中の「"」の前に「\」をつけてみてください。

×　print "<table width="450" border="0" cellspacing="0"
○　print "<table width=\"450\" border=\"0\" cellspacing=\"0\"

補足

お返事有難う御座います。

修正してパールチェックしながら
トライして見ます。