-command 用的是函数的引用

来源:互联网 发布:温州淘宝打包招聘 编辑:程序博客网 时间:2024/05/18 08:04
use Tk;# Main Windowmy $mw = new MainWindow;my $label = $mw -> Label(-text=>"Hello World") -> pack();my $button = $mw -> Button(-text => "Quit",-command =>\&exitProgam)-> pack();$var = \&exitProgam;print "\$var is $var\n";MainLoop;sub exitProgam {$mw->messageBox(-message=>"Goodbye");exit;}G:\运维系统开发\Tk>perl fun.pl$var is CODE(0x2701b94)-command 用的是函数的引用

0 0