Arrays in Perl

One Dimensional Array:-

Arrays are great in Perl, we can store heterogeneous data elements such as character, integer and floats.

Ex: - @array = (“surendra”, 1, 12,”tux”);

$# operator gives the size of the array.

Ex: - $#array => 4

Accessing Arrays:-

With dollar operator along with array name and index number inside square braces will give the array element.

Ex: - @array = (“surendra”, 1, 10,”patil”);

                $arra [0] => Surendra

                $array[2] => 10

Program to display all the elements in an array:-

use strict;

use warnings;

#

# Print Array Elements

#

my @array = ("Surendra",10,111,"patil","tux");

my $i = undef;

for ($i = 0; $i < $#array; $i++) {

                print "$array[$i]\n";

}

Output:-

Surendra

10

111

patil

tux

Multidimensional Arrays:-

use strict;

use warnings;

#

# Print Multi Dimention Array Elements

#

my @array = (

                                ["Surendra",10],

                                ["veerendra",31],

                                ["chukchuk",9],

                                ["santosh",8],

                         );

my $i = undef;

my $j = undef;

for ($i = 0; $i < $#array; $i++) {    #Rows

                for ($j = 0; $j < 2; $j++) { #Columns

                                print "$array[$i][$j]\t";

                }

                print "\n"; 

}

Output:-

Surendra        10

veerendra       31

chukchuk        9