1

我在 Perl 中有一个二维数组。我将数组传递给一个子程序，我想修改二维数组的所有元素，然后返回它并打印数组。到目前为止，我已将我的代码附在下面。我遇到的问题实际上是更改每个单独的元素并将数组传递给子例程。

原始矩阵+代码

       x            y       z
CG  -3.74900 -4.89100 -3.45400 
OD1 -6.45900 -6.29100 -6.08000 
OD2 -1.31600 -1.83300 -0.17600   

sub translateMatrixOperation
{
my (@translatematrix, $x, $y, $z) = @_;
print "PRINTING FIRST\n";
my $arrsize = scalar @translatematrix;
for(my $i = 0; $i <= $arrsize; $i++)
{
    for(my $j = 0; $j <= $arrsize; $j++)
    {
        if ($j == 0)
        {
            print "[$i][$j]:$translatematrix[$i][$j]\n";
            $_ = $_ - $x;
        }
        elsif ($j == 1)
        {
            print "[$i][$j]:$translatematrix[$i][$j]\n";
           $_ = $_ - $y;
        }
        elsif ($j == 2)
        {
            print "[$i][$j]:$translatematrix[$i][$j]\n";
            $_ = $_ - $z;
        }
    }
}
print "PRINTING\n";
for(my $i = 0; $i <= $arrsize; $i++)
{
    for(my $j = 0; $j <= $arrsize; $j++)
    {
        print "$translatematrix[$i][$j] ";
    }
    print "\n";
}
# return (\@translatematrix);

我想通过向 x 值添加一个常数值、向 y 值添加一个常数值以及向 z 值添加一个常数来编辑整个数组。我哪里做错了？

4

1 回答 1

2 
my (@translatematrix, $x, $y, $z) = @_;

没有意义，因为@translatematrix从 中啜饮所有元素@_，应该是：

my ($translatematrix, $x, $y, $z) = @_;

$translatematrix数组引用在哪里。

        $_ = $_ - $x;

应该更像

$translatematrix->[$i][$j] -= $x;

$y并且也$z应该应用类似的逻辑。

于 2013-08-12T10:25:29.137 回答