请教一个脚本思路

zero_BX

各位大神，请教一个数组问题，
数组@A=(1,2)

部分脚本如下：

foreach $a(@A){
        chomp;
        print $b ->value(),"\t";  #此处循环数组第一个元素1时，对应a，b；第二个元素2时，对应c，d，e
        
}

如何在读取1对应的b值后（\t分隔），判断读完了，再用\n分隔，然后读取2对应的值？
上面的脚本输出是：
a    b    c    d    e

实际想输出：
a    b
c    d    e

sunzhiguolu

将元素 1, 2 对应的内容放到匿名数组中。

zero_BX

回复 2# sunzhiguolu

多谢大神！能否指导一个示例呢

sunzhiguolu

回复 3# zero_BX

1. #!/usr/bin/perl
   
2. 
   
3. @A = ([(a, b)], [(c, d, e)]);
   
4. foreach (@A){
   
5.     print "@$_\n";
   
6. }
   

复制代码