perl html エスケープ

Quick Edit Pencil

さぼてん: 【Perl】HTML エスケープとXSS対策

# HTML
my $html = qq|<script language="JavaScript">alert('にょろ');</script>\n|;

# 関数 xss()
print xss($html);

sub xss {
my $str = shift || return(undef);
$str =~ s/&/&amp;/g;
$str =~ s/</&lt;/g;
$str =~ s/>/&gt;/g;
$str =~ s/\"/&quot;/g;
$str =~ s/\'/&#39;/g; return($str);
}

このブログの人気の投稿

googleのキャシュは廃止されたんだ

カルチャーラジオ 日曜カルチャー「人間を考える 思いを伝えることば」

書字方向 横書方向変換スクリプト 左書きから右書きへ(コピペ用途)

ブックマークレット DOM ソース変更

memo: ショートカットファイルを直接削除する

googleスプレッドシートで名前範囲内のデータが更新された時にタイムスタンプを更新