Push and Pull - Perl

You can add an element to the end of an existing array with the push() function,


#!/usr/bin/perl 
# define array 
@meals = ("lunch", "tea"); 
 
# add a new element to the end of the array 
push (@meals, "dinner"); 
 
# array now looks like this 
@meals = ("lunch", "tea", "dinner"); 



and remove an element from the end with the pop() function.


#!/usr/bin/perl 
# define array 
@meals = ("lunch", "tea"); 
 
# remove an element from the end of the array 
pop (@meals); 
 
# array now looks like this 
@meals = ("lunch"); 



If you need to remove an element off the top of the array instead of the bottom, you need to use the shift() function,


#!/usr/bin/perl 
# define array 
@meals = ("lunch", "tea"); 
 
# remove an element from the beginning of the array 
shift (@meals); 
 
# array now looks like this 
@meals = ("tea"); 



while the unshift() function takes care of adding elements to the beginning of the array.


#!/usr/bin/perl 
# define array 
@meals = ("lunch", "tea"); 
 
# add an element to the beginning of the array 
unshift (@meals, "breakfast"); 
 
# array now looks like this 
@meals = ("breakfast", "lunch", "tea"); 



When dealing with associative arrays, however, it's not a good idea to use these functions, since key-value pairs in a Perl associative array are not always stored in the order in which they were defined. Therefore, to remove an element from an associative array, you should instead use the delete() function, as in the example below:


#!/usr/bin/perl 
# define hash 
%matrix = ("hero" => "neo", "villain" => "smith", "teacher" => "morpheus", "babe" => "trinity"); 
 
# delete key 
delete ($matrix{"villain"}); 
 
# hash now looks like this 
%matrix = ("hero" => "neo", "teacher" => "morpheus", "babe" => "trinity"); 



You can delete all the values in a hash simply by combining the delete() function with a "foreach" loop, as below:


#!/usr/bin/perl 
# define hash 
%matrix = ("hero" => "neo", "villain" => "smith", "teacher" => "morpheus", "babe" => "trinity"); 
 
foreach $k (keys(%matrix)) 
{ 
        delete ($matrix{$k}); 
} 



The grep() function can tell you whether or not a particular value exists in an array. It accepts two arguments, a pattern to match and the array in which to search, and it scans every element of the named array for elements matching the pattern. Results, if any, are returned as another array. The following example illustrates how this works:


#!/usr/bin/perl 
# define array 
@tools = ("hammer", "chisel", "screwdriver", "boltcutter", "tape", "punch", "pliers"); 
 
# search for pattern "er" in array elements 
@match = grep (/er/i, @tools); 
 
# print matching elements 
# returns "hammer screwdriver boltcutter pliers" 
print "@match "; 



The exists() function is useful to check if a particular key exists in a hash.


#!/usr/bin/perl 
# define hash 
%matrix = ("hero" => "neo", "villain" => "smith", "teacher" => "morpheus", "babe" => "trinity"); 
 
# check for key existence 
if (exists($matrix{"hero"})) 
{ 
        print "Neo is alive!"; 
}