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
|
|
|
|
