perl 第六弹 变量 II

Posted 2021-04-17 流浪骆驼

记得点击蓝字关注我们哦！

0 1

上期回顾

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

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

• 变量名是大小写敏感

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

0 2

数组

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]
"; print "The index -5 element of the array is $fruits[-5]
";print "the second element is $fruits[1]
";print "the second element is $fruits[-4]
";

__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'）

0 3

总结

• 数组是一个有序的列表

• 数组名以@开头

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

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

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

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

— END—

上期推荐阅读

@