perl学习之数组

jason0401

#!/usr/bin/perl

use warnings;
use strict;
#创建数组
my @example = (
   "name1",
   "name2",
   10,
   20,
);
#输出数组最后一个元素
print $example[-1]."\n"; #方式一，常用
print $example[$#example]."\n"; #方式二，不常用
#获取数组大小
my $size_of_example = $#example + 1;#注意：由于数组下表从0开始，因此需要加1
print $size_of_example."\n";
#数组内嵌数组
my @arry1 = (10, 20, 30);
my @arry2 = (100, 200, 300);
my @arry  = (\@arry1,\@arry2);
#访问
print $arry[1][1]."\n";
#对数组的一些常用操作
#通过push、pop、shift、unshift操作可以实现堆栈和队列的操作
push @example,(50,100);#在数组末尾增加元素
pop @example; #从数组末尾取出元素
unshift (@example,(50, 100));#在数组的起始位置添加元素
shift @example; #从数组的起始位置取出一个元素
#清空数组和删除数组
undef @arry; #清空

foreach my $index(0..$#example) {
  delete $example[$index];  #删除  
}