-
Notifications
You must be signed in to change notification settings - Fork 37
/
escape.pl
36 lines (30 loc) · 915 Bytes
/
escape.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
# Please remember to update examples/output/vmethods/escape if you change this
# file so its output will change.
use v6;
multi sub escape (Str $source is copy, Str $lang) {
given $lang {
when "html" {
$source ~~ s:Perl5:g/([&<>"'-])/{ #"#--vim
$0 eq "&" ?? "&" !!
$0 eq "<" ?? "<" !!
$0 eq ">" ?? ">" !!
$0 eq '"' ?? """ !!
$0 eq "'" ?? "'" !!
$0 eq "-" ?? "-" !! die
}/;
}
when "doublequote" {
$source ~~ s:Perl5:g/([\\"])/{
$0 eq "\\" ?? "\\\\" !!
$0 eq "\"" ?? "\\\"" !! die
}/;
}
default {
die '"lang" parameter must be "html"|"doublequote"' unless
$lang eq any <html doublequote>;
}
}
return $source;
}
say 'This string should be quoted: "\\<>&-"'.escape(:lang<html>);
say 'This string should be quoted: "\\<>&-"'.escape(:lang<doublequote>);