perl实现数组间的组合

#!/usr/bin/perl -w @c = ('c1','c2','c3');@d = ('d1','d2','d3');&array_permute(\@c,\@d);sub array_permute{        my $aa = shift @_;        foreach(@$aa){                push(@arr,$_);                array_permute(@_) if @_;                print "@arr\n" unless @_;                pop @arr;        }}

输出为：

c1 d1
c1 d2
c1 d3
c2 d1
c2 d2
c2 d3
c3 d1
c3 d2
c3 d3