Re: Quote Escape

Perhaps escapeHTML would encode your string in a suitable format?

perl -MCGI -e "print CGI::escapeHTML(qq(Don't do that!\n));"
Don&#39;t do that!
[download]

It's just a question of whether the JS alert would convert the ' back to an apostrophe for display.

Comment on Re: Quote Escape Select or Download Code

Replies are listed 'Best First'.
Re^2: Quote Escape by Anonymous Monk on Feb 07, 2009 at 16:39 UTC
It wouldn't :) Data::JavaScript may help `use Data::JavaScript; print 'alert("', Data::JavaScript::__quotemeta(qq,ab\x22q\x27uo\x27te\x22cd,), '");',"\n"; __END__ alert("ab\"q'uo'te\"cd");` [download] To get something you can inline `perl -MData::JavaScript -MData::Dumper -e ' $Data::Dumper::Deparse=1; +die Dumper \&Data::JavaScript::__quotemeta '` [download] which you can use like $VAR1 = sub { package Data::JavaScript; use strict 'refs'; local $_ = shift @_; if ($OPT{'JS'} >= 1.3 and &Encode::is_utf8($_)) { s/([\x{0080}-\x{fffd}]+)/sprintf '\\u%0v4X', '\\u', $ +1;/eg; } { use bytes; s/((?:[^ \x21-\x7E]\|(?:\\(?!u)))+)/sprintf '\\x%0v2X' +, '\\x', $1;/eg; } s/\\x09/\\t/g; s/\\x0A/\\n/g; s/\\x0D/\\r/g; s/"/\\"/g; s/\\x5C/\\\\/g; s[</script>][\\x3C\\x2Fscript\\x3E]g; return $_; }; print 'alert("', $VAR1->(qq,ab\x22q\x27uo\x27te\x22cd,), '");',"\n"; __END__ alert("ab\"q'uo'te\"cd"); [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Quote Escape
by Anonymous Monk on Feb 07, 2009 at 16:39 UTC

Data::JavaScript

use Data::JavaScript;
print 'alert("',
Data::JavaScript::__quotemeta(qq,ab\x22q\x27uo\x27te\x22cd,),
'");',"\n";
__END__
alert("ab\"q'uo'te\"cd");
[download]

perl -MData::JavaScript -MData::Dumper -e ' $Data::Dumper::Deparse=1; 
+die Dumper \&Data::JavaScript::__quotemeta '
[download]

$VAR1 = sub {
            package Data::JavaScript;
            use strict 'refs';
            local $_ = shift @_;
            if ($OPT{'JS'} >= 1.3 and &Encode::is_utf8($_)) {
                s/([\x{0080}-\x{fffd}]+)/sprintf '\\u%0*v4X', '\\u', $
+1;/eg;
            }
            {
                use bytes;
                s/((?:[^ \x21-\x7E]|(?:\\(?!u)))+)/sprintf '\\x%0*v2X'
+, '\\x', $1;/eg;
            }
            s/\\x09/\\t/g;
            s/\\x0A/\\n/g;
            s/\\x0D/\\r/g;
            s/"/\\"/g;
            s/\\x5C/\\\\/g;
            s[</script>][\\x3C\\x2Fscript\\x3E]g;
            return $_;
        };



print 'alert("',
$VAR1->(qq,ab\x22q\x27uo\x27te\x22cd,),
'");',"\n";
__END__
alert("ab\"q'uo'te\"cd");
[download]

[reply]
[d/l]
[select]