perl实现数组间的组合

发布时间：2020-12-15 23:51:34 所属栏目：大数据来源：网络整理

导读：#!/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 "@arrn" unless @_; pop @arr; }} 输出为： c1 d1 c1 d2

#!/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 "@arrn" unless @_;
                pop @arr;
        }
}

输出为：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!