perl学习之数组

#!/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];  #删除  
}