Array to list with quoted items

[miguelele]

Hi, I need to pass a perl array, converted to a string list, to a block of JavaScript in a TT Template, to create a JavaScript array

If I use $string_to_feed_javascript = join (", ", @perl_array);

$string_to_feed_javascript contains all items separated by commas, but this breaks JavaScript syntax because each alphanumeric value must be enclosed by quotes./p>

So How can I convert the array to a string this way?
Thank you in advance

[repellent]

You may have heard of JSON?

useJSON::XS;

my $string_to_feed_javascript = encode_json \@perl_array;

print $string_to_feed_javascript; # string is UTF-8 encoded

[johngg]

Combining a quoting construct in a map with a join seems to be less confusing to my eye.

$str = join q{, }, map qq{"$_"}, @arr;

[BrowserUk]

Would this do?:

@array = qw[a list of alphanumeric values 1 2 3 4 5 6 7 8 9];;

$string = '"' . join( '",  "', @array ) . '"';;

print $string;;
"a",  "list",  "of",  "alphanumeric",  "values",  "1",  "2",  "3",  "4
+",  "5",  "6",  "7",  "8",  "9"

[miguelele]

Thank you all!!, in this case I prefer the first solution, just using join with the quotes and the commas.

Nest step will be JSON, but it will be a major update, with better skills

Regards

[JavaFan]

$string_to_feed_javascript = do {$" = '", "'; qq{"@perl_array"}};

This will do what you ask, although I expect it will break your Javascript in many interesting ways.