使用perl將數組的數組傳遞給子例程

Question

好的，所以我得到了數組（AoA）的數組，我需要將其傳遞給子例程，然后再訪問它。 這行得通……但是嚴格來說這是正確的嗎，確實有更好的方法可以使我這樣做嗎？

#!/usr/bin/perl
$a = "deep";
push(@b,$a);
push(@c,\@b);

print "c = @{$c[0]}\n";
&test(\@c);

sub test
{
    $d = $_[0];
    print "sub c = @{$$d[0]}\n";
}

謝謝

Answer 1

絕對更好的方法是use strict; 並use warnings; 並在使用它們之前聲明變量。

另外，您知道將vars命名為a或b並不是一種好習慣-給它們命名是有意義的，尤其是因為$a變量是由編譯器定義的（用於sort {} @ $a變量）。

Answer 2

use strict;          # Always!
use warnings;        # Always!

sub test {
    my ($d) = @_;
    print "$d->[0][0]\n";

    # Or to print all the deep elements.
    for my $d2 (@$d) {
       for (@$d2) {
          print "$_\n";
       }
    }
}

{
   my $a = "deep";   # or:  my @c = [ [ "deep" ] ];
   my @b;
   my @c;
   push(@b,$a);
   push(@c,\@b);
   test(\@c);        # Can't pass arrays per say, just refs. You had this right.
}

仍然需要更好的名字。 特別要避免$a和$b因為它們會干擾sort 。