#!/usr/bin/perl
@array = 5..11;
$var = pop(@array);
$val = pop(@array);
print "$var $val \n";
pop @array;
foreach (@array) {
print "$_ ";
}
print "\n We add some element to array. \n";
push (@array, 0);
push @array, 9;
push @array, 11..15;
@otharr = qw/welcome to groad.net/;
push @array, @otharr;
foreach (@array) {
print "$_ ";
}
print "\n";
./popush.pl
11 10
5 6 7 8
We add some element to array.
5 6 7 8 0 9 11 12 13 14 15 welcome to groad.net
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |