read.cgi改良スレッド 3

foreach ... (...) {
...
s/</&lt;/g;
s/>/&gt;/g;
...
}
...
$FORM{'FROM'} =~ s/&/&amp;/g;
$FORM{'subject'} =~ s/&/&amp;/g;

みたいになってるんだな。きっと。

foreach ... (...) {
...
s/&/&amp;/g if ($name eq 'FROM' || $name eq 'subject');
s/</&lt;/g;
s/>/&gt;/g;
...
}

みたいにすればいいのか