HTMLタグ使用記号文字の変換

HTMLタグで使用する特殊文字を変換します。掲示板の投稿内容の変換などで使用します。
別掲載のものに同様の機能のものがありますが、HTML上望ましい方向に変換するように変更しました。
この HTML 上では漢字がシフトJIS になっていますが、本来は EUC 向けとなっています。

########## HTML tag / \n を無効化 ##########
sub htmltag_disable {
    $_ = $_[0];

    s/&/&/g;
    s/</&lt;/g;
    s/>/&gt;/g;
    s/"/&quot;/g;
    s/\n//g;

    return ($_);
}
総合ホームページ Perl納戸部屋