perl 2 차원 배열

perl 에는 진정한 2 차원 배열 이 없다.이른바 2 차원 배열 은 1 차원 배열 을 인용 하 는 방식 으로 다른 1 차원 배열 에 두 는 것 이다.
2 차원 배열 정의:
my @array1=([1,2],[3,4],[45,9],[66,-5]);               <-----------[]를 사용 하여 익명 배열 표시
혹은
my @array2=qw/this is a array/;my @array3=("another","array");my @array4=(\@array2,\@array3);                  <------------인용 배열 을 표시 하려 면\@을 사용 하 십시오.
2 차원 배열 의 사용
$array1[1][1]  혹은$array 1[1]->[1]
$array 1[1]배열 을 대표 하 는 주소
예:

#!/usr/bin/perl -w
use strict;
my @array1=([1,2],[3,4],[45,9],[66,-5]);
print $array1[1][1] ;
print $array1[1]->[1];
print $array1[1];
my @array2=qw/this is a array/;
my @array3=("another","array");
my @array4=(\@array2,\@array3);
my $text="this|is|a|test
I|love|perl
";
print "
=========================================
";
print $text;
print "
=========================================
";
sub display
{
    my @temp=@_;
    for(my $i=0;$i<scalar(@temp);$i++)
    {
        for(my $j=0;$j<scalar(@{$temp[$i]});$j++)
        {
            print "$temp[$i][$j] \t";
        }
        print "
";
    }
}
&display(@array1);
print "
---------------------------------
";
&display(@array4);

결과:
D:\perl>perl array.pl
44ARRAY(0x52e1d8) =========================================
this|is|a|test I|love|perl
=========================================
1       2
3       4
45      9
66      -5
---------------------------------
this    is      a       array
another         array