列表

()：空列表，当做条件判断时为false
两个非空列表示例：("Hello ", "world", "\n") (123, 456, 789)
同一列表中可以容纳不同类型的元素
Perl中的列表只有一维。(3, 8, 5, 15)、((3, 8), (5, 15))和(3, (8, 5), 15)都等于(3, 8, 5, 15)
qw//可以用来声明字符串数组：qw/hello world good bye/等于('hello', 'world', 'good', 'bye'). 这里有两个要点：1. 元素以空格分隔 2. 空格分隔开的字符串被当做单引号声明的字符串处理。同样可以用#、|、<>、[]、{}、()代替//
可以对整数定义区间：(1 .. 6)等价于(1, 2, 3, 4, 5, 6). 注意只能对整数定义。如果对小数定义则会导致整数截断：(1.4 .. 6.9)等价于(1, 2, 3, 4, 5, 6). 由于字符也是整数，因此形如('a'..'k')的写法也可以
reverse()函数将列表反序，例如reverse (qw(The cat sat on the mat))等于qw(mat the on sat cat The)
list[index]用于取列表中的元素。下标从0开始。负的下标表示倒序下标，例如list[-1]指最后一个元素，而list[-2]指倒数第二个元素。

(qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)[-2..1])等于(‘Nov’, ‘Dec’, ‘Jan’, ‘Feb’)

使用多个下标可以将列表切片：(19, 68, 47, 60, 53, 51, 58, 55, 47)[(4, 5, 6)]将得到(53, 51, 58)

也可写作(19, 68, 47, 60, 53, 51, 58, 55, 47)[4, 5, 6]

列表赋值：($mone, $mtwo) = (1, 3);等价于$mone=1;$mtwo=3;

($mone, $mtwo) = ($mtwo, $mone);

可以将多个下标和区间获取切片：(qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)[0,3,7..11])

数组

Perl中存有列表的变量称为数组，数组名以@开头，例如@array = (1,2,3);
print函数接受的参数本质上就是一个列表，所以可以直接将数组打印出来：

@array = (4, 6, 3, 9, 12, 10);

print @array, "\n";

得到：46391210

而如果使用这种写法

print "@array\n";

得到自动按空格分隔好的列表：4 6 3 9 12 10

将列表强制转换为标量将会得到列表的长度（所含元素数）

$scalar1 = @array1;
或使用scalar()函数：print scalar @array1;

向数组中添加元素：

my @array1 = (1, 2, 3);
my @array2;
@array2 = (@array1, 4, 5, 6);
@array2 = (3, 5, 7, 9);
@array2 = (1, @array2, 11);

$#array获取array的最大下标，例如my @array = (2, 4, 6, 8);则$#array为3
可以用foreach遍历列表和数组foreach scalar_variable ( list_or_array ) {...} 其中scalar_variable为迭代器。迭代过程中，可以通过膝盖迭代器的值更新列表中的元素：my @array = (10, 20, 30, 40); foreach (@array) {$_ *=2;}执行后@array中每个元组增倍。上面给出的例子还说明如果不显式指定迭代器名字，则$_为迭代器
foreach也具有和if类似的expression modifier用法：print "[$_]\n" foreach @a;
push(@array, $scalar)将标量$scalar加到@array最后（等价于@array = (@array, $scalar)），push(@array1, @array2)则将@array2接到@array1后（等价于@array1 = (@array1, @array2)）
pop(@array)从@array中删去最后一个元素，并返回这个元素
与push类似，shift(@array, $scalar)等价于@array = ($scalar, @array)；而shift(@array1, @array2)则等价于@array1 = (@array2, @array1)
unshift(@array)从@array中删除第一个元素，并返回这个元素
sort(@array)将@array进行排序，默认排序方法是字母排序。而如果希望数值排序，则可以调用sort({comparator}, @array)，并定义数值排序规则，例如：my @number = sort { $a <=> $b } @unsorted;为进行数值排序，而my @string = sort { $a cmp $b } @unsorted;为进行字母排序
exists(@array[index])如果存在元素@array[index]则为true，否则false
delete(@array[index])删除@array中下标为index的元素，注意：如果删除的不是数组中的最后一个元素，则该被删除元素位置仍保留（即数组的长度不变），该位置上为一未初始化值的变量。如果删除的是最后一个元素，则数组的长度将会减1.

第5章：哈希

Perl里的哈希指的是哈希映射，即类似stl::hash_map、java.util.HashMap
哈希变量声明、初始化时以%开始，例如：

%where = ("Gary" , "Dallas","Lucy" , "Exeter","Ian" , "Reading","Samantha" , "Portland");基于这种写法可以通过列表初始化哈希：@array = qw(Gary Dallas Lucy Exeter Ian Reading Samantha Portland);%where = @array;
也可以写作%where = (Gary => "Dallas",Lucy => "Exeter",Ian => "Reading",Samantha => "Portland");
但在使用时仍然以$开始，例如取值$where{Gary}，$where{“Ian”}

通过复制运算可以修改哈希中保存的值，也可以添加新值：$where{$key}=$value如果$key已存在，则将$key对应的值更新为$value，否则将$key=>$value对加入哈希
exists()可用于检查某个键在哈希中是否存在，如果存在为true否则false. 例如：exists $where{Gary}
delete()可用于删除哈希中的值，例如delete $hash{$key}
将哈希转换为列表：按哈希中的key=>value对逐个列出，即(key1, value1, key2, value2 ...).

通过将哈希赋值给列表变量，可以将哈希列表化：my %hash=(....); my @list=%hash;
在print中使用哈希%hash也会被强转，因为print接受的是列表类型

将哈希转换为标量，将得到一个分数，分子是哈希表中已经使用的桶，分母是总共桶数my $scalar = %person;print "$scalar\n"; #输出3/8
keys($hash)返回$hash中所有key的列表，values($hash)返回$hash中所有值的列表。注意既然为列表，那么values($hash)中可能存在重复值
可以用each()函数遍历哈希表中所有key=>value对。

my %where = (
  Gary => "Dallas",
  Lucy => "Exeter",
  Ian => "Reading",
  Samantha => "Portland"
);
my($k, $v);
while (($k, $v) = each %where) {
  print "$k lives in $v\n";
}