[PerlChina] Re: 变量作用域的问题

我最后按照全局变量的方式来处理了。

十分感谢James和孙叔昌的帮助和建议，受益颇多。

Best regards
Zhang JiaQiang

2009/8/23 Qiang (James) <shijialee@gmail.com>

忘记回答你的问题了, hehe. 除了用上次连接里提供的匿名函数等解决办法外（在
使用嵌套函数情况下），我觉得也只能使用全局变量了，这样的解决方法简单易维
护（ 和让你过几天后再看这段程序时要用5分钟才懂的程序比要好很多 :)  ）。

Qiang


>
>> use strict;
>> # main begin
>> .....
>>
>> find( \&Wanted,$dir);
>>
>> sub Wanted
>> {
>>     if ( $_ =~ /some reg/ ){
>>         Parser_XML($_);
>>     }
>> }
>>
>> sub Parser_XML {
>>     my $xmlfile = shift;
>>     my $tag_count;
>>         $parser->setHandlers( Start => \&startElement );
>>     $parser->parsefile($xmlfile);
>>     print "There is $count in this xml file\n";
>>
>>     sub startElement {
>>         ......
>>         $tag_count++ if $element == 'TAG';
>>     }
>>
>> }
>>
>>
>>
>> Best regards
>> Zhang JiaQiang
>>
>>
>>
>> 2009/8/23 Qiang (James) <shijialee@gmail.com
>> <mailto:shijialee@gmail.com>>
>>
>>     zhang jiaqiang wrote:
>>      > 大家好，
>>      >
>>      > 新手想不太明白一个变量作用的问题，请帮忙看看。
>>      >
>>      > 我的问题是如何理解$x后两次没有值，为什么在函数in_a里还有值？而且
>>     第三次循
>>      > 环的时候这个值怎么成2了？
>>
>>     简单的解释是嵌套函数的原因。复杂的这里讲的很清楚，就不和你重复了。。
>>
>>
>> http://perl.apache.org/docs/general/perl_reference/perl_reference.html#my____Scoped_Variable_in_Nested_Subroutines
>>
>>
>>     另外，没有特别需要，没有人会这么写 Perl 程序。
>>
>>     Qiang
>>
>>
>>      >
>>      > 简化的程序如下：
>>      >
>>      > for $i (0..2){
>>      >     a();
>>      > }
>>      > sub a
>>      > {
>>      >     my $x ;
>>      >     in_a();
>>      >     print $i,":\t",$x,"\n";
>>      >     undef $x;
>>      >     sub in_a
>>      >     {
>>      >       $x++;
>>      >       print "in_a:$x\n";
>>      >     }
>>      > }
>>      >
>>      > 执行结果：
>>      > in_a:1
>>      > 0:      1
>>      > in_a:1
>>      > 1:
>>      > in_a:2
>>      > 2:
>>      >
>>      >
>>      >
>>      > Best regards
>>      > Zhang JiaQiang
>>      >
>>      >
>>      > >
>>
>>
>>
>>
>>
>> >>
>

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---