use utf8 与use English下 @ARG有何不同？

hztj2005

这是网上的代码，略有修改，执行后，鼠标点击节点文字，会在命令行窗口输出节点文字。

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use English;#有此句 不需要 my @ARG=();
   
6. 
   
7. use Tk;
   
8. use Tk::Tree;
   
9. 
   
10. my $main = MainWindow->new(-title => "语法树" );       
    
11. $main->geometry("400x600");#1368
    
12. 
    
13. my $tree = $main->ScrlTree(
    
14.   -font       => 'FixedSys 8',
    
15.   -itemtype   => 'text',
    
16.   -separator  => '/',
    
17.   -scrollbars => "se",
    
18.   -selectmode => 'single',
    
19.   -browsecmd => \sub {
    
20.       my ($numbers) = @ARG;
    
21.       print $numbers. "\n";
    
22.   }
    
23. );
    
24. 
    
25. $tree->add( "one" , -text => "one" );
    
26. $tree->add( "one.111" , -text => "one.111" );
    
27. $tree->add( "two" , -text => "two" );
    
28. $tree->add( "two.222" , -text => "two.222" );
    
29. $tree->pack();
    
30. MainLoop();

复制代码

我现在想改为utf8下处理汉字，但是这时编译提示需要声明 my @ARG=(); 但执行后，点击树节点，却不能输出节点文字。

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use utf8 ;
   
6. use Encode;
   
7. use Tk;
   
8. use Tk::Tree;
   
9. 
   
10. my @ARG=();#utf8 必须
    
11. 
    
12. my $main = MainWindow->new(-title => "语法树" );       
    
13. $main->geometry("400x600");#1368
    
14. 
    
15. my $tree = $main->ScrlTree(
    
16.   -font       => 'FixedSys 8',
    
17.   -itemtype   => 'text',
    
18.   -separator  => '/',
    
19.   -scrollbars => "se",
    
20.   -selectmode => 'single',
    
21.   -browsecmd => \sub {
    
22.       my ($numbers) = @ARG;
    
23.       print $numbers. "\n";
    
24.   }
    
25. );
    
26. 
    
27. $tree->add( "one" , -text => "one" );
    
28. $tree->add( "one.111" , -text => "one.111" );
    
29. $tree->add( "two" , -text => "two" );
    
30. $tree->add( "two.222" , -text => "two.222" );
    
31. $tree->pack();
    
32. MainLoop();
    

复制代码

hztj2005

回复 2# jason680

谢谢指教！