Perl Array Functions

Shows some Perl array functions and examples of how to use them.

Delete

%group = ('forest', 'tree', 'crowd', 'person');
delete($group{'forest'})

if (exists($group{'forest'}))
{
	print "The named element was not deleted.\n";
}
else
{
	print "The element was deleted.\n";
}

each

%group = ('forest', 'tree', 'crowd', 'person', 'fleet', 'ship');

while (($key, $value) = each(%group))
{
	print "A $value is part of a $key.\n";
}

Results printed are:

A tree is part of a forest.
A person is part of a crowd.
A ship is part of a fleet.

exists

%group = ('forest', 'tree', 'crowd', 'person');
if (exists($group{'crowd'}))
{
	print "The named element exists.\n";
}
else
{
	print "No element with that name found.\n";
}

grep




join

The elements in an array are joined into a single string with each element seperated by the value in EXPR.

join EXPR, ARRAY

Example:

@plantlist= (flower, tree, grass);
join " ", @plantlist;

This evaluates to "flower tree grass".

keys

Returns hash keys where:

%group = ('forest', 'tree', 'crowd', 'person');
foreach $key (keys %group) 
{
   print $key . "\n";
}

map

pop

push

reverse

scalar

shift

sort

splice

split

unshift

values