上期回顾

• Perl变量主要有三种类型：变量(标量型变量)、数组、哈希

• 标量型变量含有单个值，标量型变量的前缀是$

• 变量名是大小写敏感

• 变量是以字母开头的，则它可以由任意数目的字母(下划线也算作字母)或数字构成

02

数组

Perl并不要求数组元素具有相同的数据类型。数组元素可以是数字和字符串的混合体。在Perl中，数组是一个有名字的列表，含有有序的标量型变量集合。数组名必须以@开头。数组名的后面是位于方括号([ ])之间的下标，它们都是非负整数，从0开始计数。

在初始化数组时，用户可以把所有元素放在括号中，并以逗号分隔它们。

也可以用qw创建列表(类似于qq、q 和qx)。列表中各项内容将作为带有单引号的字符串来处理。

# 使用一个含有4个字符串的列表，对数组@name 进行初始化@name=("Guy", "Tom", "Dan", "Roy");# 创建数组@grades， 将(100, 90, 65, 96, 40, 75)列表赋值给数组@grades@grades=(100, 90, 65, 96, 40, 75);# 创建数组@items， 将($a, $b, $c)列表赋值给数组@grades@items=($a, $b, $c);# 创建空数组@empty@empty=();# 将数组@items赋值给一个标量型变量$size。该标量的值将是数组中的元素个数# 在本例中，其值等于3$size=@items;# 创建数组@list，从2到10的所有整数列表赋值给数组@list# .. 为范围运算符，类似如下例，表示A-Z，a-z# @alpha=( 'A' .. 'Z', 'a' .. 'z' );@list=(2..10);# qw(引用字)结构后面跟随选定的定界符。# 列表中每个字都作为带有单引号的字来对待。末尾的定界符说明列表到此结束# qw 结构支持任何成对的字符如()、{}、<> 和[] 作为定界符@mammals = qw/dogs cats cows/;@fruit = qw(apples pears peaches);

上图中表示一个含有5个元素的列表。其中元素下面对应的数字，即元素下标。如上所述，下标从0开始计数。元素上面为元素对应倒序下标。

(1)访问列表中的值

# Populating an array and printing its values@fruits = ('apple','banana','watermelon','orange');print "The index 0 element of the array is $fruits[0]\n"; print "The index -5 element of the array is $fruits[-5]\n";print "the second element is $fruits[1]\n";print "the second element is $fruits[-4]\n";__END__(Output)The index 0 element of the array is appleThe index -5 element of the array is applethe second element is bananathe second element is banana

(2)列表删除元素

# shift函数弹出数组的第一个元素，即下标为0的元素shift @fruits；# 此时 @fruits = ('banana','watermelon',，'orange')########################################################### pop函数会删除并返回数组的最后一个元素pop @fruits;# 此时@fruits = ('banana','watermelon')

(3)列表添加元素

# 使用push函数，在数组@fruits中，添加"pineapple"元素push @fruits,"pineapple";# 此时@fruits = ('banana','watermelon'，'pineapple')#################################################### unshift函数传入一个或多个值(或者0个) 并把它放在数组的开头unshift @fruits, 'Moo';# 此时@fruits = ('Moo','banana','watermelon'，'pineapple')

(4)更新列表

# 通过元素下标进行修改# 修改前# @fruits = ('Moo','banana','watermelon'，'pineapple')$fruits[0] = 'pear';# 修改后# @fruits = ('pear','banana','watermelon'，'pineapple')

03

总结

• 数组是一个有序的列表

• 数组名以@开头

• 数组下标以0开始，倒序下标从左向右以-1开始

• 通过数组元素下标访问元素，更新元素

• 通过shift、pop函数删除数组元素

• 通过unshift、push函数数组添加元素

—END—上期推荐阅读@

perl 第五弹 变量 I