诡异的结果，求解释~

gongyonghui2

my @file=qw/a.txt b.txt/;
for(@file){
        open IN,$_;
        while(<IN>){}#注释和不注释掉此行为什打印结果有差别？
        close IN;
        }
print @file;
难道open采用的方式是从数组里面shift？求详细解释！

q1208c

是你自己的程序问题.

你在 for里使用了 $_ 做为文件名的变量, 又在 while里用了 $_ 做为 文件内容的变量.

结果, 程序把$_负值为 "" 或 null 了. 然后, 你close的时候, 又写回去了, 所以, @file最后成了一个 空数组, 或者说只有空字符串的数组.

我一直不建议使用 $_, 多写一个变量,死不了人的.

gongyonghui2

回复 2# q1208c


    明白了，是这样子的，多谢
    for或者说foreach默认使用$_作为控制变量，如果写成for $i(@arr)，那么$i就是控制变量。 控制变量实际上就是当前元素的别名，所以修改控制变量实际上就是修改原始数据。
   如下，数组@items每个元素都被加一
   for my $item(@items){
   $item+=1;                        
   }