Re: three dimensional arrays

#!/usr/bin/perl -wl -  
use strict;

my @a;
$a[0][0][0] = 0;
$a[0][0][1] = 1;
$a[1][0][0] = 2;
$a[2][0][0] = 3;

print $#a;
print $a[0];
print $#{$a[0]};
print $a[0][0];
print $#{$a[0][0]};
print $a[0][0][0];
print $/;
print $a[1];
print $#{$a[1]};
print $a[1][0];
print $#{$a[1][0]};
print $a[1][0][0];
__END__

2
ARRAY(0x1abf1ac)
0
ARRAY(0x1abf1d0)
1
0


ARRAY(0x1ab51fc)
0
ARRAY(0x1ab522c)
0
2
[download]

Comment on Re: three dimensional arrays Download Code

Replies are listed 'Best First'.
Re: Re: three dimensional arrays by Anonymous Monk on Nov 28, 2003 at 14:26 UTC
`#!/usr/bin/perl -wl - use strict; my @a = ( [ [ 0, 1 ] ], [ [ 2 ] ], [ [ 3 ] ] ); print $#a; print $a[0]; print $#{$a[0]}; print $a[0][0]; print $#{$a[0][0]}; print $a[0][0][0]; print $/; print $a[1]; print $#{$a[1]}; print $a[1][0]; print $#{$a[1][0]}; print $a[1][0][0]; __END__ 2 ARRAY(0x1abf1dc) 0 ARRAY(0x1abf0f8) 1 0 ARRAY(0x1ab5214) 0 ARRAY(0x1ab51cc) 0 2` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: three dimensional arrays
by Anonymous Monk on Nov 28, 2003 at 14:26 UTC

#!/usr/bin/perl -wl -  
use strict;
my @a = (
  [
    [
      0,
      1
    ]
  ],
  [
    [
      2
    ]
  ],
  [
    [
      3
    ]
  ]
);

print $#a;
print $a[0];
print $#{$a[0]};
print $a[0][0];
print $#{$a[0][0]};
print $a[0][0][0];
print $/;
print $a[1];
print $#{$a[1]};
print $a[1][0];
print $#{$a[1][0]};
print $a[1][0][0];

__END__

2
ARRAY(0x1abf1dc)
0
ARRAY(0x1abf0f8)
1
0


ARRAY(0x1ab5214)
0
ARRAY(0x1ab51cc)
0
2
[download]

[reply]
[d/l]