3 D array derefferenzieren in perl

[newton]

Hi,

ich moechte in perl ein 3D array an eine funktion uebergeben, und dann dort auf die elemente zugreifen, moeglichst in der Form $array[$x][$y][$z].
Dazu uebergebe ich eine referenz an die funktion:
function \@array;
wenn ich dann aber in der funktion dereferenziere
@new_array=@$ref;
kann ich maximal auf einen index zugreifen, also
$new_array[$x];
und nicht
$new_array[$x][$y][$z]
weil dann meckert der interpreter ueber meine syntax bei "]["

wie kann ich auf die 3D Struktur zugreifen in meiner funktion?

Gruss
newton

[michael.sprick]

Also derefenzieren von Arrayreferenzen machst Du mit

@Array = @{$ArrayRef};

Aber eigentlich kannst Du Dir den Schritt sparen... Du kannst ja auch mit Referenz arbeiten ($ArrayRef->[0][0][0]):

#!/usr/bin/perl

use strict;
use warnings;
sub Ausgabe($);


my @Array = ( [['1aa','1ab','1ac'],['1ba','1bb','1bc'],['1ca','1cb','1cc']],
              [['2aa','2ab','2ac'],['2ba','2bb','2bc'],['2ca','2cb','2cc']],
              [['3aa','3ab','3ac'],['3ba','3bb','3bc'],['3ca','3cb','3cc']],
              [['4aa','4ab','4ac'],['4ba','4bb','4bc'],['4ca','4cb','4cc']] 
            );

Ausgabe(\@Array);

sub Ausgabe($)
{
  my $ArrayRef = shift(@_);
  print $ArrayRef->[2][2][2];
  #oder
  my @Array = @{$ArrayRef};
  print $Array[2][2][2];
} 

[newton]

Ahh super!!
mit Referenz arbeiten funktioniert.
Vielen Dank!

newton