perl syntax 1

数据类型

Array函数

原地(In-place)array修改函数

我们用@stack来演示这些函数:

pop抽取并返回array的最后一个元素,可以认为是栈顶的元素:

push向array末尾添加一个元素:

shift抽取并返回array的第一个元素:

unshift向array的头部插入一个元素:

poppushshiftunshift都是splice的特例。splice返回删除的一个array的切片,并且用另一个array的切片在原array中替换之:

从现有的array创建新的array

Perl提供下面这些函数,可以操作现有的array产生新的array。

join函数把多个字符串连接成一个字符串:

在列表上下文,reverse函数把传入的列表逆序返回,在scalar上下文,reverse先把字符串列表连接起来,再将这个字符串反转。

map函数接受一个array,并将一个操作应用于这个array中的每一个scalar $_,然后返回用这些scalar创建的array。这个操作用在花括号中的一个表达式来表示:

grep函数接受一个array,并返回一个经过筛选的array。语法与map类似,而第二个参数会对array中的每个scalar $_求值,如果返回true,这个scalar就会被放到输出array中,否则就不会。

显然,返回的array长度是满足条件的元素个数,这就意味着你可以用grep检查array中是否包含某个元素:

grepmap的组合形成了list comprehensions这种许多其他语言中欠缺的非常强大特性。(译者注:list comprehensions大致的意思是利用map和filter从现有的列表构造新的列表,表达的含义是对一个列表中满足某个条件的所有元素上应用某个操作,而形成一个新的列表。)

默认情况下,sort函数对输入的array按字母序进行排序:

然而,与grepmap类似,排序总是通过一系列元素的两两比较来进行的。你的代码块接受$a$b作为输入,如果$a“小于”$b则返回-1,如果“相等”则返回0,而如果$a“大于”$b则返回1。

cmp运算符适用于字符串(译者注:按字母序比较):

这个“宇宙飞船运算符”<=>适用于数值:

$a$b总是scalar,但是它们也许是某个复杂对象的引用,那样就很难直接进行比较。如果你需要更多篇幅来描述这种比较,你可以单独创建一个子程序来描述它,并在用到它的地方提供这个子程序的名字:

不过你不能对grepmap这样做。

请注意,我们从来没有显式提供$a$b给子程序和语句块。就像$_一样,$a$b实际上是当一对值需要比较时被填入的全局变量。

发表评论

电子邮件地址不会被公开。 必填项已用*标注