请教一个动态调整"数组名"的问题，谢谢！

cnwillow

假定存在数组：@array1, @array2, @array3, ……;
令$i=1;
怎么实现让 @array{1,2,3,……}  可以随 $i 动态调用，即：
当$i=1时，使用的数组是@array1;
当$i=2时，使用的数组是@array2;
当$i=3时，使用的数组是@array4;
……
也就是可以表示成类似于${array$i}[ ]的形式，比如$i=1时为$array1[];


望各位高手指点，谢谢！
//bow

笨狗

1. 
   
2. E:\_Downloads>;more test.pl
   
3. @array1 = (1);
   
4. @array2 = (2);
   
5. @array3 = (3);
   
6. 
   
7. foreach (1...3) {
   
8.    $name = 'array'.$_;
   
9.    print $name,':',@{$name},"\n";
   
10. }
    
11. 
    
12. E:\_Downloads>;perl test.pl
    
13. array1:1
    
14. array2:2
    
15. array3:3
    

复制代码

cnwillow

谢谢！

这样功能是可以实现，不过加了‘-w’选项时，会出现告警信息：
Name "main::array1" used only once:possible typo at H:\test.pl line 4.

有什么更好的办法可以实现功能而消除警告信息。

再次感谢cuer的帮助。

m0925j

在@array1 = (1);这种定义的前面加上my就不会有警告了

笨狗

1. 
   
2. Z:\>;more test.pl
   
3. use warnings;
   
4. 
   
5. {
   
6.   no warnings;
   
7.   @array1 = (1);
   
8.   @array2 = (2);
   
9.   @array3 = (3);
   
10. }
    
11. 
    
12. foreach (1...3) {
    
13.   $name = 'array'.$_;
    
14.   print $name,':',@{$name},"\n";
    
15. }
    
16. 
    
17. Z:\>;perl test.pl
    
18. array1:1
    
19. array2:2
    
20. array3:3
    

复制代码

m0925j

为什么加my的话输出就不对了呢？