in reply to Re: OT: Perl and Javascript - escaping newlines
in thread OT: Perl and Javascript - escaping newlines

use Data::JavaScript;
my @array = ( 1, 2, "f\no\no\n\bar" );

print $_,$/ for jsdump( my_array => \@array);
__DATA__
var my_array = new Array;
my_array[0] = 1;
my_array[1] = 2;
my_array[2] = 'f\012o\012o\012\010ar';

[download]
This confirms it for me 
<a href="javascript:alert('f\012o\012o\012\010ar');">
 alert('f\012o\012o\012\010ar')
</a>

[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

Replies are listed 'Best First'.
Re^3: OT: Perl and Javascript - escaping newlines
by ikegami (Patriarch) on Feb 27, 2006 at 15:59 UTC
    In that case, 
    my $string = ... from db ...;
my $jscode = $string;
$jscode =~ s/(\W)/ sprintf('\\0%o', ord($1)) /ge;
$jscode = qq{"$jscode"};

    [download]
    would also work.
[reply]
[d/l]

In Section Seekers of Perl Wisdom