Some tests for Embperl escaping

Here it starts with some HTML Text

First of all assign a value: [- $a = '(this is the value in $a)' -]
Now we have some 'Umlaute': [- $b = "$a äöüäöü???<\&+ " -] [- $id = "abcdefghijklmnopqrstuvwxyz" ; $text = "This is a text ? \& + - %21" -] Now lets look what we are getting from this:
[+ $a +] [+ $b +]
What is the EscMode? [+ $escmode +] Now a Url: Here it goes A Tag 2: a2 A Tag 3: a3 A Tag 4: a4 A Tag 5: a5 A Tag 6: a6 A Tag 7: x A Tag 8: x A Tag 9: x A Tag 10: x A Tag 11: x A Tag 12: x A Tag 12b: x A Tag 13: x A Tag 14: x FRAME: IFRAME: EMBED: <EMBED SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo"> LAYER: <LAYER SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo"> IMG: <IMG SRC="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo"> FORM: <FORM action="http://localhost/tests?id=[+%20$id +]&text=[+$text+]" name="%20foo"> [- %A = (A => 1, B => 2) ; @A = (X, 9, Y, 8, Z, 7) -] Hash in A <A HREF="http://localhost/tests?[+ [ %A ] +]"> Array in A <A HREF="http://localhost/tests?[+ \@A +]"> [- %H = (A => 1, B => 2) ; @H = (X, 9, Y, 8, Z, 7) -] Hash in H <A HREF="http://localhost/tests?[+ \\%H +]"> Array in H <A HREF="http://localhost/tests?[+ scalar { @H } +]"> [+ $escmode = 1 +] Now lets look what we are getting from this: [+ $a +] [+ $b +] What is the EscMode? [+ $escmode +] Now a Url: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">Here it goes</A> [+ $escmode = 2 +] Now lets look what we are getting from this: [+ $a +] [+ $b +] What is the EscMode? [+ $escmode +] Now a Url: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">Here it goes</A> [+ $escmode = 0 +] Now lets look what we are getting from this: [+ $a +] [+ $b +] What is the EscMode? [+ $escmode +] Now a Url: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">Here it goes</A> [+ $escmode = 3 +] Now lets look what we are getting from this: [+ $a +] [+ $b +] What is the EscMode? [+ $escmode +] Now a Url: <A HREF="http://localhost/tests?id=[+%20$id +]&text=[+$text+]">Here it goes</A> What is the EscMode? [+ $escmode +] [! sub foo($) { my @name ; my @data ; $name[0] = 'abcd' ; $data[0] = 'xyz' ; my $bar = $_[0]; return "file.html?name=$name[$bar]&data=$data[$bar]"; } !] [+ foo (0) +] Now we localy set $escmode: [+ local $escmode = 0 ; $b . " \\\\<a>" +] [+ local $escmode = 1 ; $b . " \\\\<a>" +] [+ local $escmode = 2 ; $b . " \\\\<a>" +] [+ local $escmode = 3 ; $b . " \\\\<a>" +] [+ local $escmode = 4 ; $b . " \\\\<a>" +] [+ local $escmode = 5 ; $b . " \\\\<a>" +] [+ local $escmode = 6 ; $b . " \\\\<a>" +] [+ local $escmode = 7 ; $b . " \\\\<a>" +] Same without local: [+ $escmode = 0 ; $b . " \\\\<a>" +] [+ $escmode = 1 ; $b . " \\\\<a>" +] [+ $escmode = 2 ; $b . " \\\\<a>" +] [+ $escmode = 3 ; $b . " \\\\<a>" +] [+ $escmode = 4 ; $b . " \\\\<a>" +] [+ $escmode = 5 ; $b . " \\\\<a>" +] [+ $escmode = 6 ; $b . " \\\\<a>" +] [+ $escmode = 7 ; $b . " \\\\<a>" +] Control Chars 0x80-0x9f: [+ local $escmode = 7 ; foreach (127..160) { $cc .= chr ($_) }; $cc +] Control Chars 129 & 130: [+ local $escmode = 7 ; "" +] [+ $n = 'My Name öäü' ; $escmode = 0 +] <A HREF='http://host/script?name=[+$escmode=3; $n+]'> <A HREF='http://host/script?name=[+ $n+]'> [+ $escmode = 0 +] <A HREF='http://host/script?name=[+ local $escmode=3; $n+]'> <A HREF='http://host/script?name=[+ $n+]'> We can avoid interpreting [[- foo -] with a double [[[[ This should also work for [[* foo *] [# <A HREF="[+ "abcd"+]%20[+ "%3e" +]">x</A> [- $dat = [[1], [2], [3]] -] <table> <TR> <TD><a href="[+$dat->[$row][0]+]">Link</a></TD> </TR> </table> <table> <TR> <TD><a href="[+$dat-%3e[$row][0]+]">Link</a></TD> </TR> </table> [- $optRawInput = 0 -] [- $escmode = 0 -] $optRawInput [+ $optRawInput +] $escmode [+ $escmode +] 'here is a \ ' -> [+ 'here is a \ ' +] 'here is a \\ ' -> [+ 'here is a \\ ' +] 'here is a \\\ ' -> [+ 'here is a \\\ ' +] 'here is a \\\\ ' -> [+ 'here is a \\\\ ' +] 'here is a <tag> ' -> [+ 'here is a <tag>' +] 'here is a \<tag> ' -> [+ 'here is a \<tag>' +] 'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +] 'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +] 'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +] 'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +] 'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +] 'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +] 'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +] [- $optRawInput = 1 -] [- $escmode = 0 -] $optRawInput [+ $optRawInput +] $escmode [+ $escmode +] 'here is a \ ' -> [+ 'here is a \ ' +] 'here is a \\ ' -> [+ 'here is a \\ ' +] 'here is a \\\ ' -> [+ 'here is a \\\ ' +] 'here is a \\\\ ' -> [+ 'here is a \\\\ ' +] 'here is a <tag> ' -> [+ 'here is a <tag>' +] 'here is a \<tag> ' -> [+ 'here is a \<tag>' +] 'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +] 'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +] 'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +] 'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +] 'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +] 'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +] 'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +] [- $optRawInput = 0 -] [- $escmode = 1 -] $optRawInput [+ $optRawInput +] $escmode [+ $escmode +] 'here is a \ ' -> [+ 'here is a \ ' +] 'here is a \\ ' -> [+ 'here is a \\ ' +] 'here is a \\\ ' -> [+ 'here is a \\\ ' +] 'here is a \\\\ ' -> [+ 'here is a \\\\ ' +] 'here is a <tag> ' -> [+ 'here is a <tag>' +] 'here is a \<tag> ' -> [+ 'here is a \<tag>' +] 'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +] 'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +] 'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +] 'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +] 'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +] 'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +] 'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +] [- $optRawInput = 1 -] [- $escmode = 1 -] $optRawInput [+ $optRawInput +] $escmode [+ $escmode +] 'here is a \ ' -> [+ 'here is a \ ' +] 'here is a \\ ' -> [+ 'here is a \\ ' +] 'here is a \\\ ' -> [+ 'here is a \\\ ' +] 'here is a \\\\ ' -> [+ 'here is a \\\\ ' +] 'here is a <tag> ' -> [+ 'here is a <tag>' +] 'here is a \<tag> ' -> [+ 'here is a \<tag>' +] 'here is a \\<tag> ' -> [+ 'here is a \\<tag>' +] 'here is a \\\<tag> ' -> [+ 'here is a \\\<tag>' +] 'here is a \\\\<tag> ' -> [+ 'here is a \\\\<tag>' +] 'here is a \<tag\> ' -> [+ 'here is a \<tag\>' +] 'here is a \\<tag\\> ' -> [+ 'here is a \\<tag\\>' +] 'here is a \\\<tag\\\> ' -> [+ 'here is a \\\<tag\\\>' +] 'here is a \\\\<tag\\\\> ' -> [+ 'here is a \\\\<tag\\\\>' +] #] Ok. </body> </html>