大家帮我看一下下面这个代码运行结果的问题吧！

塞图宝

@a=(1..10);
foreach (@{@a})
{$_++;}
print @a;

为什么foreach 解引用之后， 结果是
012345678910，
也就是没有改变呢？
谢谢大家！

首天

你没有引用，所以就没有解引用了
改成如下就可以看到引用的效果了

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. my $a=[1..10];
   
5. foreach (@$a){
   
6.         $_++;
   
7. }
   
8. print @$a;

复制代码

jason680

@a=(1..10);
foreach (@{@a})
{$_++;}
print @a;

为什么foreach 解引用之后， 结果是
012345678910， ...
塞图宝 发表于 2011-08-05 15:38

不知你要做什么....是这样吗?
foreach (@a)
{$_++;}

yiten

@{@a}，这个会发生什么神奇效果吗？