perl 界面问题

lty369963

我想在界面实现一个这个方法：我点击一个按钮，让一个变量的值在一个文本框（Text）中显示，如何操作？请大神指点

zhlong8

哪个GUI库？Perl 有好几个GUI库，但没一个主流的讲清楚

lty369963

忘说了，是TK模块
回复 2# zhlong8


   

Tonyish

想了半分钟，没明白！

wand65

1. use Tk;
   
2. $mw=MainWindow->new();
   
3. $le=$mw->Frame();
   
4. $le->Label(-text=>'Input Var Here')->pack(-side=>'left') ;
   
5. $le->Entry(-width=>20,-textvariable=>\$t)->pack(-side=>'left');
   
6. $le->pack();
   
7. $text=$mw->Text(-width=>20,-height=>10)->pack();
   
8. $mw->Button(-text=>'Insert Var',-command=>\&insert)->pack();
   
9. MainLoop;
   
10. sub insert{
    
11. $text->insert('0.0',"$t");
    
12. }

复制代码