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);
}

このブログの人気の投稿

簡単 らじるらじるの聴き逃し番組、NHKラジオのストリーミングを保存・ダウンロードする方法 2019

ヤバい!JAPANNEXT WQHD対応 27型ワイド液晶ディスプレイ「JN-IPS2716WQHD」を注文してみた!!!

研磨

PowerShellのGetDetailsOf メソッドでプロパティの詳細情報のID番号と項目名を列挙します

決定版 Edgeでローカルファイルを開く パワーシェルスクリプト (ウインドウズでドロップレット)

blender4.1 マテリアルが設定されているオブジェクトの一覧を取得するスクリプト

https://gemini.google.com/search?q=%5B%5BOralHistory%5D%5D