的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/>'; } 
}