HTMLのタグをエスケープする

戻る

#!/usr/bin/perl
#=====================================================
# $Id: EscapeHTML.html,v 1.1 2009/06/22 16:11:42 kishi Exp kishi $
#=====================================================

while(<STDIN>){
        print escapeHTML( $_ );
}

sub escapeHTML {
        $value = shift;

        $value =~ s/&/&amp;/g;

        $value =~ s/</&lt;/g;
        $value =~ s/>/&gt;/g;
        $value =~ s/"/&quot;/g;

        return $value;
}

戻る