… | … | ||
---|---|---|---|
3 | local $_ = shift; | 3 | local $_ = shift; |
4 | s/([()<>%&?,; ='"\x00-\x1f\x80-\xff])/sprintf "%%%02X", ord($1)/ge; | 4 | s/([()<>%&?,; ='"\x00-\x1f\x80-\xff])/sprintf "%%%02X", ord($1)/ge; |
5 | $_; | 5 | $_; |
6 | } | 6 | } |
7 | 7 | ||
8 | sub escape_html($) { | ||
9 | local $_ = shift; | ||
10 | s/([<>&\x00-\x07\x09\x0b\x0d-\x1f\x7f-\x9f])/sprintf "&#%d;", ord($1)/ge; | ||
11 | $_; | ||
12 | } | ||
13 | |||
8 | 1; | 14 | 1; |
9 | 15 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |