XSS対策のCPANモジュール探してます
ないですかね。
sub tune_html { my ($str) = @_; $str =~ s/&/&/g; $str =~ s/</</g; $str =~ s/>/>/g; $str =~ s/\"/"/g; $str =~ s/\'/'/g; return $str; }
追記:
TODO tokuhiromさんにText::Xslateを進められたので試してみる。
ないですかね。
sub tune_html { my ($str) = @_; $str =~ s/&/&/g; $str =~ s/</</g; $str =~ s/>/>/g; $str =~ s/\"/"/g; $str =~ s/\'/'/g; return $str; }
追記:
TODO tokuhiromさんにText::Xslateを進められたので試してみる。