Arrays: Difference between revisions

Content added Content deleted
(Added XLISP)
(→‎{{header|Perl}}: Migrating from http://rosettacode.org/wiki/Creating_an_Array)
Line 3,759: Line 3,759:


=={{header|Perl}}==
=={{header|Perl}}==

In-line

<lang perl> my @empty;
my @empty_too = ();
my @populated = ('This', 'That', 'And', 'The', 'Other');
print $populated[2]; # And
my $aref = ['This', 'That', 'And', 'The', 'Other'];
print $aref->[2]; # And
</lang>


Dynamic
Dynamic
Line 3,770: Line 3,782:


print $arr[0];</lang>
print $arr[0];</lang>

Two-dimensional

<lang perl> my @multi_dimensional = (
[0, 1, 2, 3],
[qw(a b c d e f g)],
[qw(! $ % & *)],
);
</lang>


=={{header|Perl 6}}==
=={{header|Perl 6}}==