Chinaunix

标题: use utf8 与use English下 @ARG有何不同？ [打印本页]
作者: hztj2005    时间: 2018-03-01 19:20
标题: use utf8 与use English下 @ARG有何不同？
这是网上的代码，略有修改，执行后，鼠标点击节点文字，会在命令行窗口输出节点文字。
  1. #!/usr/bin/perl

  3. use strict;
  4. use warnings;
  5. use English;#有此句 不需要 my @ARG=();

  7. use Tk;
  8. use Tk::Tree;

  10. my $main = MainWindow->new(-title => "语法树" );       
  11. $main->geometry("400x600");#1368

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

  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

  3. use strict;
  4. use warnings;
  5. use utf8 ;
  6. use Encode;
  7. use Tk;
  8. use Tk::Tree;

  10. my @ARG=();#utf8 必须

  12. my $main = MainWindow->new(-title => "语法树" );       
  13. $main->geometry("400x600");#1368

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

  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    时间: 2018-03-01 22:52
本帖最后由 jason680 于 2018-03-02 08:07 编辑

回复 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    时间: 2018-03-02 00:20
回复 2# jason680

谢谢指教！





欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2