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