Question

我正在尝试将二维数组传递给子程序并返回一个新数组。在子例程内部创建了一个新变量，但在调用子例程后，初始数组会以某种方式更改。同时，这种类型的一维阵列没有问题。

以下是代码：

#!/usr/bin/perl -w
use strict;

my @motifs=('1230','1011','2121');
my @empty_profile;

for (my $i=0;$i<4;$i++) {
    for (my $j=0;$j<4;$j++) {
        $empty_profile[$i][$j]=1/8;
    }
}

for (my $i=0;$i<4;$i++) {
    for (my $j=0;$j<4;$j++) {
        print("$empty_profile[$i][$j] ");
    }
    print "\n";
}

my @new_profile=profile(\@motifs,\@empty_profile);

print("print it again\n");

for (my $i=0;$i<4;$i++) {
    for (my $j=0;$j<4;$j++) {
        print("$empty_profile[$i][$j] ");
    }
    print "\n";
}

sub profile {
    my @motifs=@{$_[0]};
    my @p=@{$_[1]};

    for (my $i=0; $i<4;$i++) {
        for (my $j=0;$j<3;$j++) {
            my $l=substr($motifs[$j],$i,1);
            $p[$l][$i]+=1/8;
        }
    }
    @p;
}

在子程序调用之前和之后打印@empty_profile 2次 - 并更改其值。

Answer 1

你做了@empty_profile的浅层副本，但由于它的每个元素都是数组引用，所以也要复制它们，因此原始值不会被更改，

my @p = map [ @$_ ], @{$_[1]};

Perl：如何将二维数组传递给子程序？

1 个答案: