Perl：XUL :: GUI如何在javascript和perl之間傳遞變量

Question

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";
}

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