数组的数组

pony2001mx

大家好：
我有一个array的array，想输出所有组合，有些困惑，请高人指点，非常谢谢！

1. #!/usr/bin/perl
   
2. 
   
3. while (<DATA>) {
   
4.         push @a, [split];
   
5. }
   
6. 
   
7. ... #中间部分请指点
   
8. 
   
9. __DATA__
   
10. a b
    
11. f e
    
12. o s

复制代码

理想的输出结果是：
a f o
a f s
a e o
a e s
b f o
b f s
b e o
b e s

pony2001mx

期待高人指点迷津，谢谢！

xiumu2280

my @nb = glob "{a1,a2}{b1,b2}{c1,c2}";


另外，你这么写也不是数组的数组···

pony2001mx

回复 3# xiumu2280

非常谢谢！我改正了格式错误，但我还有问题请教，见以下。


我最大的问题是，上例比较简单，其实我的数组的数组有很多内容，比如下面我构建了一个数组的数组， 如何用程序实现类似上面的输出？


程序：

1. while (<DATA>) {
   
2.         push @a， [split];
   
3. }
   
4. 
   
5. ...
   
6. 
   
7. __DATA__
   
8. a b
   
9. f e
   
10. o s

复制代码

理想的结果是
a f o
a f s
a e o
a e s
b f o
b f s
b e o
b e s

   

xiumu2280

你print一下我那行代码的数组啊···· 就是你想要的···

一行即可···

回复 4# pony2001mx


   

jason680

http://bbs.chinaunix.net/thread-4118053-1-1.html

pony2001mx

谢谢回复，但我确实不知道如何输出我所想要的结果，请高人再耐心一下，给我写句代码吧？ 谢谢！

ntwarren

while (<DATA>) {
    push @a,[split];
   
}

@b;

sub showcombine {
    my $index = shift;
    if($index == @a){
        print "@b\n";
    }
    else{
        for my $ele (@{$a[$index]}){
            push @b,$ele;
            showcombine ($index+1);
            pop @b;
        }
    }
}

showcombine(0);


回复 4# pony2001mx


   

pony2001mx

非常谢谢ntwarren的帮助！也谢谢xiumu2280的回复！