perl - eval_in_page 的问题 - 尝试插入数组

Question

my @para_text = $mech->xpath('/html/body/form/table/tbody/tr[2]/td[3]/table/tbody/tr[2]/td/table/tbody/tr[3]/td/div/div/div', type => $mech->xpathResult('STRING_TYPE'));
#BELOW IS JUST TO MAKE SURE THE ABOVE CAPTURED THE CORRECT TEXT 
print "Look here: @para_text";

$mech->click_button( id => "lnkHdrreplyall");
$mech->eval_in_page('document.getElementsByName("txtbdy")[0].value = "@para_text"');

在我的代码的最后一行中，我需要将 @para_text 数组的内容作为文本输出到网站上的文本框中，但是从“文档”到行尾，它需要被 ' ' 包围去工作。显然这不允许插值，因为这需要“”关于做什么的任何想法？

Answer 1

要定义一个本身包含双引号以及插入变量值的字符串，您可以使用双引号的替代形式qq/ ... /，您可以自己选择分隔符并防止双引号"变得特殊

所以你可以写

$mech->eval_in_page(qq/document.getElementsByName("txtbdy")[0].value = "@para_text"/)