Learning Perl 学习笔记数组

2019-10-12 本文已影响0人 sakam0to

数组的索引：从0开始， $#name 表示数组的最后一个索引（而不是数组的长度，数组的长度是$ #name + 1）
-1 也表示数组的最后一个索引，所以 $name[$ #name] == $name[-1];
数组变量的表示@，@name表示名为name的数组变量，$name[0]则表示name数组的第一个元素
数组的初始化，可以用括号内用逗号分隔的元素表示。如，@a = ('a', 'b', 1, 'c'); 由于Perl是弱类型语言，所以并不要求数组元素的类型保持一致。
对于全由数字或全由字符串组成的数组，有两种简便的表示方法：
(m..n) 表示从m开始，每个元素+1，直到n的数组（如果m或n是小数，则舍掉小数部分，而不是四舍五入）
qw(abc def ghi)的作用就是给括起来的单词加单引号，会把用空格隔开的字符串组装成字符串数组，因为是单引号，所以不能插入转义字符
一种很方便的交换两个元素的方法：( $a,$ b) = ( $b,$ a)
把数组当成堆栈来使用：push/pop操作栈顶，shift/unshift操作栈底

push @a, @b; push @a, 'test'; #会把数组b的元素和‘test'放到数组a的末尾,(push/pop/shift/unshift遵循“如无必要，无需括号”的原则）
$a = pop @a，#从数组a中取下最后一个元素放到标量a里（@a和$ a是不同的变量）
shift和pop相同，unshift和push相同，区别在于shift/unshift操作的是数组头部（数组[0]所指向的位置）

数组循环结构foreach：foreach $some (@array){do something...} 变量$ some会依次遍历@array中的每一个值，如果没有指定 $some变量，则会使用默认变量$ _
排序sort和逆序reverse：sort按照ASCII码序对字符串和数字排序（所以11会排在9前面）。reverse则将任意数组的顺序逆转后返回。这两个函数都不会修改传入的变量（如果想要获取逆序数，应使用reverse sort @a 而不是 reverse @a，后者只能获得一个和原来a的元素顺序相反的数组，但不一定是有序的）
同一个表达式在不同的上下文会有不同的意义：数组变量在列表上下文中返回列表中的元素，但是在标量上下文中则返回列表中元素的个数。另一个例子是reverse，它在列表上下文中返回逆序后的数组，但是在标量上下文中返回逆序字符串。
在列表上下文中强行切换使用标量上下文，使用伪函数scalar， print scalar @array 强行打印array中元素的个数。
在列表上下文中使用<STDIN>会一直读到文件末尾EOF，如果是读取用户输入则需要Ctrl-D插入系统中断。

Learning Perl 学习笔记 数组