Help for this page

Select Code to Download


  1. or download this
    use Data::JavaScript;
print 'alert("',
...
'");',"\n";
__END__
alert("ab\"q'uo'te\"cd");
  2. or download this
    perl -MData::JavaScript -MData::Dumper -e ' $Data::Dumper::Deparse=1; 
+die Dumper \&Data::JavaScript::__quotemeta '
  3. or download this
    $VAR1 = sub {
            package Data::JavaScript;
...
'");',"\n";
__END__
alert("ab\"q'uo'te\"cd");