Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 22 lines (19 sloc) 362 Bytes
use feature 'say';
use strict;
say '1..6';
my @a;
say 'ok 1 - create array';
$a[7][4] = 3;
say 'ok 2 - set element';
if ($a[7][4] != 3) {
print 'not '
}
say 'ok 3 - fetch element # ', $a[7][4];
my $b;
say 'ok 4 - create scalar';
$b->[7][4] = 3;
say 'ok 5 - set element';
if ($b->[7][4] != 3) {
print 'not '
}
say 'ok 6 - fetch element # ', $b->[7][4];
Something went wrong with that request. Please try again.