的Perl：XUL :: GUI怎样的JavaScript和Perl之间传递变量

Question

Perl的专家

我想使用的Web ::桂，使我的团队的应用程序，但碰到一个障碍，我需要通过perl和javascript之间的变量。

我的代码从文本区域获取输入，通过perl进行一些处理，然后通过刷新通过javascript显示结果。我从CPAN上的XUL :: GUI示例中看到，perl脚本可以通过javascript内的“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"; 
} 

Answer 1

我解决了这个问题。它只是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/>'; } 
}