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]; #删除
}
posted @ 2012-04-08 14:16  DreamerHui  阅读(633)  评论(0编辑  收藏  举报