为什么“for”语句无法改变全局变量的内容？【已解决】

ttcn_cu

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. my $var="default";
   
4. my @t = qw (aa bb cc);
   
5. for $var (@t){
   
6.     print "$var\n";
   
7.     printit();
   
8. }
   
9. 
   
10. sub printit{
    
11.     print "$var\n";
    
12. }
    

复制代码

执行结果：

1. aa
   
2. default
   
3. bb
   
4. default
   
5. cc
   
6. default

复制代码

期待结果

1. aa
   
2. aa
   
3. bb
   
4. bb
   
5. cc
   
6. cc

复制代码

yybmsrs

1. for (@t){
   
2.     $var = $_;
   
3.     print "$var\n";
   
4. 
   
5.     printit();
   
6. 
   
7. }

复制代码

这样可以

dugu072_cu

回复 1# ttcn_cu


Foreach Loops
  The "foreach" loop iterates over a normal list value and sets the
  variable VAR to be each element of the list in turn. If the variable is
  preceded with the keyword "my", then it is lexically scoped, and is
  therefore visible only within the loop. Otherwise, the variable is
  implicitly local to the loop and regains its former value upon exiting
  the loop. If the variable was previously declared with "my", it uses
  that variable instead of the global one, but it's still localized to the
  loop. This implicit localisation occurs *only* in a "foreach" loop.

ttcn_cu

我确实用了2楼的处理方法。
非常感谢3楼详细的解答

dugu072_cu

回复 4# ttcn_cu


    没有必要转存一次啊，声明改为 our $var = '...' 也可以

nuclearxin

推荐用主流的写法。
非主流的话会遭人围观的。

ttcn_cu

回复 6# nuclearxin


    推荐写法是哪种？

ttcn_cu

回复 5# dugu072_cu


    用our的话，会“污染”其他模块吧？

nuclearxin

回复 7# ttcn_cu

init:
思路清晰
不用用以引起歧义的
语句
如果觉得必须用这样的语句
无限 loop 到 init那里。。。。

dugu072_cu

回复 8# ttcn_cu


    our 只是放到了 符号表 而已，最大的影响也只是占了一点点内存，至于说污染其他模块，除非其他模块 特地的用包全名 来污染，不然怎么可能被影响，our 的引入，目的就是限定作用域的嘛～