Mega Code Archive

 

Categories / Perl / Array

 

Push, pop, shift and unshift an array

#!/usr/bin/perl use strict; use warnings; my @array = (1, 2, 3, 4, 5, 6); push @array, '7';    print "@array\n";    my $last = pop @array;  print "$last\n";    unshift @array, -1, 0; print "@array\n";   shift @array;    shift @array;    print "@array\n";