Передача переменной Perl функции JavaScript

Question

Мне нужно передать переменную Perl функции JavaScript.

print "<input type='radio' name='envelopeid' value='$values[0]' onclick='SetName(this.value,$values[1]);'>"; 

где значения является массив переменных в Perl и SetName (а, б) это функция JavaScript.

приведенная выше функция JavaScript работает отлично, когда я передаю один аргумент i.e SetName (this.value), но это не сработает, если я передаю 2 аргумента. (Я изменил функцию JavaScript, чтобы принять 2 аргумента соответственно)

Вышеупомянутая функция не инициирована onclick, а вызывает ошибку в строке состояния браузера.

Что нужно изменить, чтобы передать переменную $ Perl $ values ​​[1] функции JavaScript?

Answer 1

Что вы на самом деле пытаетесь сделать, это передать значение из $values[0] и $values[1].

Чтобы передать значение функции JS, она должна быть создана литералом JS. JSON является подмножеством JS, поэтому для создания этого литерала можно использовать кодер JSON.

use JSON::XS qw(); 
my $json = JSON::XS->new->allow_nonref; 
my $val1_jslit = $json->encode($values[1]); 

JS и $values[0] должны быть встроены в HTML, так что вам нужно кодировать соответствующим образом.

use HTML::Entities qw(encode_entities); 
my $val0_html  = encode_entities($values[0]); 
my $val1_jslit_html = encode_entities($val1_jslit); 

Затем вы можете легко интерполировать.

print "<input ... value='$val0_html' onclick='SetName(this.value, $val1_jslit_html);'>";