请教一个关于array的问题

hzjingtao

#!c:\perl\bin\perl -w

use strict;

my @array = qw /John Paul May/;
my $strings='array';

for my $i(0...$#array) {
        print $array[$i],",";
}

for my $i(0...$#{$strings}) {
        print $array[$i],",";
}

请问为什么第二个for循环输出与第一个for循环不同。
如何才能修改才能一致？？

初学者，多谢各位指导。

流言飞语

1. my @array = qw /John Paul May/;
   
2. my $strings=\@array;
   
3. 
   
4. for my $i(0...$#array) {
   
5. print $array[$i],",";
   
6. }
   
7. print("\n");
   
8. for my $i(0...$#{$strings}) {
   
9. print $array[$i],",";
   
10. }

复制代码

寂寞烈火

原帖由 "arcong" 发表：
请问一下
$string=\@array

和楼主用的$string='array'

有什么区别?

还有个问题...
用 my $i(0...$n) {   }
中的$i 和$n..是不是只有$i不是全局变量..?
这个是不是等同于 (for $i=0;$i<$n;$i++) {   ..........

1,$string=@array返回的是数组的个数,而$string='array'就是给标量$string赋值
2,my操作符指定一个变量(标量)为一个私有的!他起作用的域限于一个块内,如果脚本很短小,这个my是多余的!

apile

拿掉use strict;
把
@array = qw /John Paul May/;
$strings='array';
前面的my拿掉..就能得到一樣的結果...
為什麼會這樣...以前沒注意看那個章節..可能@{$strings}
只能用在global  or local variable吧..
因為放置的位置不同..所以my你不能這樣用....

flw

apile 前辈说的是对的。
符号引用的确只能针对全局变量使用，用 my 标识的局部变量是不能作为符号引用的。
另外我补充一点：
之所以要把 use strict 去掉，是因为 use strict 禁止了符号引用。这段代码按照我的理解，应该这么写比较妥当：

1. use strict;
   
2. no strict 'refs';
   
3. 
   
4. our @array = qw /John Paul May/;
   
5. our $strings='array';
   
6. 
   
7. for my $i(0..$#array) {
   
8.       print $array[$i],",";
   
9. }
   
10. 
    
11. print "\n";
    
12. 
    
13. for my $i(0..$#{$strings}) {
    
14.       print $array[$i],",";
    
15. }
    

复制代码

之所以还是加上 use strict，是因为没有这一句给人带来的坏处确实太多了。还是加上为好。不过可以有选择地将符号引用打开。
如果你是要编制自己的模块、并且要在模块中使用符号引用的话，建议在模块的开始处加上 no strict 'refs' 并且在结尾处再加上 use strict 'refs' 这样子就可以避免在别的模块继续允许符号引用了，毕竟符号引用有时候也会给人带来一些麻烦。