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();
    

复制代码

jason680

回复 1# hztj2005

$perldoc English

NAME
    English - use nice English (or awk) names for ugly punctuation variables

SYNOPSIS
        use English;
        use English qw( -no_match_vars ) ;  # Avoids regex performance
                                            # penalty in perl 5.16 and
                                            # earlier
        ...
        if ($ERRNO =~ /denied/) { ... }

DESCRIPTION
    This module provides aliases for the built-in variables whose names no one
    seems to like to read. Variables with side-effects which get triggered
    just by accessing them (like $0) will still be affected.

    For those variables that have an awk version, both long and short English
    alternatives are provided. For example, the $/ variable can be referred to
    either $RS or $INPUT_RECORD_SEPARATOR if you are using the English module.

    See perlvar for a complete list of these.

PERFORMANCE
...

hztj2005

回复 2# jason680

谢谢指教！