Mega Code Archive

 

Categories / Perl / Array

 

Unshift places data to the front of an array

$num_elements = unshift(array, $prepend_data); #!/usr/bin/perl -w # Uses unshift with ARGV. $prepend_data = "PREPENDED"; $num_elements = unshift(@ARGV, $prepend_data); # Display arguments. foreach $i (0 .. $#ARGV) {     print "$ARGV[$i]\n"; } print "Total elements = $num_elements.\n";