Perl:XUL:：GUI如何在javascript和Perl之间传递变量

Perl专家

我试图使用Web:：Gui为我的团队制作一个应用程序，但遇到了一个障碍，我需要在perl和javascript之间传递变量

我的代码从一个文本区域获取输入，通过perl进行一些处理，然后通过javascript刷新一个文件来显示结果。我从CPAN上的XUL:：GUI示例中看到，javascript中的“perl（）”可以调用perl脚本。但是，该示例没有显示如何在perl和javascript之间传递变量

你能给我指一下正确的方向吗

use Web::Gui;
display
    ( CENTER 
         H3( 'Pathe!' ),
         ( FORM
              ( TEXTAREA id => 'myText', rows => 10, cols => 50, readonly => 1, TEXT => 'disks' )
              ( INPUT type => 'button', value => 'Search', onclick => function q{
                  var text = document.getElementById('myText').innerHTML;
                  perl( "mySub( text )" );
                  document.getElementById('d').innerHTML = "<b>" + text + "<b/>"; } 
              )
        ),
        ( DIV id => 'd' )
    );

sub mySub {
  return "$_[0]35";
}

使用Web:：Gui；
显示
（中）
H3（'Pathe！'），
（表格
（textareaid=>myText，行=>10，列=>50，只读=>1，文本=>disks）
（输入类型=>'按钮'，值=>'搜索'，onclick=>函数q{
var text=document.getElementById（'myText'）.innerHTML；
perl（“mySub（text）”；
document.getElementById（'d'）.innerHTML=“+text+”；}
)
),
（DIV id=>d'）
);
亚mySub{
返回“$\u0]35”；
}

我解决了这个问题。这只是perl q和qq函数：

display
    ( CENTER 
        H3( 'Pathe!' ),
        ( FORM
            ( TEXTAREA id => 'myText', rows => 10, cols => 50, readonly => 1, TEXT => 'disks' ),
            ( INPUT type => 'button', value => 'Search', onclick => \&mySub )
        ),
        ( DIV id => 'd' )
    );


sub mySub {
    my $input = ID(myText)->value;
    $input .= "156";
    gui qq{ document.getElementById('d').innerHTML = '<b>' + \'$input\' + '<b/>'; }
}

显示
（中）
H3（'Pathe！'），
（表格
（textareaid=>myText'，rows=>10，cols=>50，readonly=>1，TEXT=>disks'），
（输入类型=>'按钮'，值=>'搜索'，onclick=>\&mySub）
),
（DIV id=>d'）
);
亚mySub{
my$input=ID（myText）->值；
$input.=“156”；
gui qq{document.getElementById（'d'）。innerHTML='+\'$input\'+''''；}
}