perl数组赋值问题。

就这么游来游去

请问怎么实现用循环将多组有相同性质的元素赋值给不同的数组阿。
比如说有三组元素分别是 （aaa bbb ccc ddd）(fff ggg hhh jjj) (kkk lll ooo)
要分别赋给@a1 @a2 @a3            .怎么才能用一条赋值语句就实现三种不同情况的赋值阿？？      望指教   谢谢。


主要是在一个foreach语句里产生的很多数据要分组保存。例：
my @a=(eth0 eth1 eth2);
my @eth;
foreach $a(@a){
        $eth[1]=
         $eth[2]=
        $eth[3]=
＃等于后面都是处理好的数据
}
要把每个foreach产生的数据放到一个数组里。也就是说产生三个数组 分别存放eth0的相关信息eth的相关信息eth2的相关信息。  有点说部清楚、有人明白我在说什么吗。。。。。。
          像上面那样 ，只是把数据放到数组＠eth里， 但是最后存放的只是eth2的信息，前面两个就被覆盖了，本来一句一句的写也没什么，问题是不知道前面程序到底产生多少个eth0阿eth1阿甚至eth100。   所以不知道要怎么存放。
             最简单的说就是怎么把数组名当成变量使用。 my $k=0;        foreach(<>){      
                                                                                                                           @a$k=$_;   
                                                                                                                              $k++;
                                                                                                                              }                  就是这个意思无限产生数组@a0  @a1 @a2 @a3. . .@a100..................才发现貌似有悖原则    这成了无限定义数组了

toniz

楼主字体真大啊

你这样问  大概没人知道你想干啥  字体大也没用

倒还不如直接给出数据样例，再给出想要的结果。

就这么游来游去

楼主字体真大啊

你这样问  大概没人知道你想干啥  字体大也没用

倒还不如直接给出 ...
toniz 发表于 2010-07-26 11:05

     那啥  、 我不知道会那么大的，我怕太小看不清，本来准备用7的.......            已经改小了，  问题是我想要的是过程诶，上面例子那种。

Wayne_sama

你把問題再說明白一点吧
貌似没看懂

就这么游来游去

你把問題再說明白一点吧
貌似没看懂
Wayne_sama 发表于 2010-07-26 11:10

哦   就是说想同时给很多组数组赋值，几百上千个那种 ，总不能一个一个的赋吧  。  要怎么才能些个循环让数组名也成一个变量
。

yybmsrs

1. my ($aa,$bb,$cc) = (['aaa' ,'bbb' ,'ccc', 'ddd'],['fff' ,'ggg', 'hhh' ,'jjj'],['kkk' ,'lll', 'ooo']);
   
2. 
   
3. print @$aa;
   
4. print "\n";
   
5. print @$bb;
   
6. print "\n";
   
7. print @$cc;
   
8. print "\n";

复制代码

就这么游来游去

yybmsrs 发表于 2010-07-26 11:18

    多谢 ，不过好像不是我要的结果。。。  是我没问题没问清楚。。  等我改改。。。。。。。

ynchnluiti

用 map

就这么游来游去

用 map
ynchnluiti 发表于 2010-07-26 11:29

    map??  什么东西？。。。我搜搜克。



搜了好像不行阿    ......

就这么游来游去

好吧   我知道了  这种情况是要用二维变量。。。。。。。。。。都怪c语言没学好.............





谢谢楼上各位....