二维数组：更改元素Perl

我在Perl中有一个2d数组。我将数组传递给子例程，并且我想修改2d数组的所有元素，然后返回并打印数组。我在下面附加了我的代码。我遇到的问题实际上是更改每个单独的元素并将该数组传递给子例程。二维数组：更改元素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编辑整个阵列。我哪里做错了？

来源

2013-08-12 user2657817

关于风格，'为（我的$ I = 0; $ I <= $ arrsize; $ I ++）'通常写为'我的$ I（0 .. $＃ARR）''为@ arr'阵列 –

您是否考虑过使用[PDL]（http://pdl.perl.org/）？应该使矩阵操作非常简单。 – memowe

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

没有意义如@translatematrix吸食的所有元素从@_，并且应该是：

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

其中$translatematrix是数组引用。

 $_ = $_ - $x;

应该更像

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

，并且还类似的逻辑来$y和$z应适用。

来源

2013-08-12 10:25:29

这项技术可行，但它阻止我使用当前计算长度的方法。我该如何计算阵列的长度？ – user2657817

@ user2657817你可以改变参数顺序即。 '我的（$ x，$ y，$ z，@translatematrix）= @_;'所以数组是最后一个 –

二维数组：更改元素Perl

回答

相关问题