Add regex_escape() TT function
parent
ae264bdf2d
commit
bbcb30140c
|
@ -956,6 +956,21 @@ sub create
|
||||||
# html_quote in the form of a function
|
# html_quote in the form of a function
|
||||||
html => \&html_quote,
|
html => \&html_quote,
|
||||||
|
|
||||||
|
# escape regular expression characters
|
||||||
|
regex_escape => sub
|
||||||
|
{
|
||||||
|
my ($s) = @_;
|
||||||
|
return "\Q$s\E";
|
||||||
|
},
|
||||||
|
|
||||||
|
# escape regular expression replacement characters
|
||||||
|
replacement_escape => sub
|
||||||
|
{
|
||||||
|
my ($s) = @_;
|
||||||
|
$s =~ s/([\\\$])/\\$1/gso;
|
||||||
|
return $s;
|
||||||
|
},
|
||||||
|
|
||||||
# HTML <select>
|
# HTML <select>
|
||||||
# html_select(name, <selected value>, <values>, [<value names>], [<attr_hash>])
|
# html_select(name, <selected value>, <values>, [<value names>], [<attr_hash>])
|
||||||
# <values> may be one of:
|
# <values> may be one of:
|
||||||
|
|
Loading…
Reference in New Issue