数据类型之列表与数组

-- Start

对于下面的 Perl 语句，等号左边的$name 被称为标量，等号右边的"尚波" 被称为字符串常量，它的意思是把字符串常量"尚波"赋给变量$name。

$name = "尚波";

对于下面的 Perl 语句，等号左边的@names 被称为数组，等号右边的被称为列表，它的意思是把列表中的值赋给数组@names。

@names = ("尚波", "张三", "李四");

列表

所谓列表是指用括号括起来的一系列的值。下面的例子演示如何定义和使用列表。

#!/usr/bin/perl

############################ 定义列表
(); # 空列表
(1, 2, 3);
(1..100); # 包含数字 1 到 100 的列表
('a'..'b'); # 可用于字符串
("尚波", "张三", "李四"); # 双引号
('尚波', '张三', '李四'); # 单引号
qw(尚波 张三 李四); # 同上(单引号)，qw 表示 quoted by whitespace
qw/尚波 张三 李四/; # qw 的定界符可以是任何标点符号


############################ 使用列表
($name1, $name2, $name3) = ("尚波", "张三", "李四"); # 把列表中的值依次赋给三个标量
($name1, $name2, $name3, $name4) = ("尚波", "张三", "李四"); # $name4 中的值将为 undef
($name1, $name2) = ("尚波", "张三", "李四"); # 李四 将被忽略
($name1, undef, $name2) = ("尚波", "张三", "李四"); # 张三 将被忽略

($name1, $name2) = ($name2, $name1); # 交换标量中的值

$name = ("尚波", "张三", "李四"); # $name 中的值为李四，最右边的值
@names = ("尚波", "张三", "李四"); # 把列表中的值赋给一个数组

数组

#!/usr/bin/perl

################################ 定义数组
@names;
@names = (); # 同上
@student_names = ("小王"，"小李");
@names = ("小尚", @student_names); # 此时，数组 @names 中将有 "小尚"，"小王"，"小李"
@names = @student_names; # 复制数组


################################ 访问数组
@names = qw(小尚 小王 小李);
$name = $names[0]; # 取出数组下标为 0 的元素，注意，此处是 $names[0]，不是 @names[0]
$name = $names[-1]; # 取出数组的最后一个元素，Perl 支持负下标，如： $names[-2], $names[-3] 等
$names[19] = "小张"; # 数组会自动增长到20个元素，未定义的为 undef
($name1, $name2, $name3) = @names; # 将数组中的值赋给左边的三个标量
$last_index = $#names; #数组 names 的最后一个元素的下标
$#names += 1; # 改变数组 names 的长度


@names = qw(小尚 小王 小李 小赵);
@names_part = @names[2,3]; # @names_part 数组中的值为：小李,小赵
@names_part = @names[1..3]; # @names_part 数组中的值为：小王,小李,小赵
@names[2,3] = ("大s","小s"); # @names 数组中的值为：小尚,小王,大s,小s
@names[0,1] = @names[1,0]; # 交换数组元素
@names[0,1] = @names[2,3]; # 交换数组元素


################################ 打印数组
@names = qw(小尚 小王 小李);
print @names; # 输出：小尚小王小李，注意没有空格哦
print "@names"; # 输出：小尚 小王 小李
print "wave0409\@163.com"; # 打印 Email 时要注意转义@，否则会被认为是数组
print "I am $names[0]";


################################ 迭代数组
$name = "小赵";
@names = qw(小尚 小王 小李);
foreach $name (@names) {
	$name = "你好".$name; # 改变 $name 的值，数组中的值也相应的改变
}
print $name; # 循环结束后，$name 的值将会被恢复到循环开始时的值：小赵


################################ 对数组操作的函数
@names = qw(小尚 小王 小李);
$name = pop (@names); # pop 函数用来删除并返回数组中最后一个元素(小李被删除)
push (@names, '小李'); # push 函数用来向数组的尾端添加一个或多个元素(小李被添加到数组的尾部)
push (@names, @student_names); # 将数组 @student_names 添加到 @names 中


@names = qw(小尚 小王 小李);
$name = shift (@names); # shift 函数用来删除并返回数组中第一个元素(小尚被删除)
unshift (@names, '小尚'); # unshift 函数用来向数组的头部添加一个或多个元素(小尚被添加到数组的头部)
unshift (@names, @student_names); # 将数组 @student_names 添加到 @names 中


@names = qw(小尚 小王 小李);
$name = join("-", @names); # 将数组元素连接成字符串：小尚-小王-小李
@names = split(/-/, $name); # 分割字符串成数组：("小尚","小王","小李")
@names = split(/-/, $name, 2); # 分割字符串成数组，分割成2个元素：("小尚","小王-小李")


@names = qw(小尚 小王 小李);
@names = reverse (@names); # 反转数组：小李 小王 小尚


@strings = (1,2,3,10,10,12);
@stringSort = sort (@strings); # 按默认方式(字母)排序数组
@numberSort = sort {$a<=>$b}(@strings); # 自定义方式(数字)排序数组
@numberSort = sort {"\L$a" cmp "\L$b"}(@strings); # 自定义方式(忽略大小写)排序数组

@names = qw(小尚 小王 小李);
@names2 = qw(小s 大s);
@names_new = splice(@names, 2, 0, @names2); # 对@names进行插入替换操作，跳过2个元素，用@names2替换0个元素(相当于插入)：小尚 小王 小s 大s 小李
@names_new = splice(@names, 2, 1, @names2); # 跳过2个元素，用@names2替换1个元素：小尚 小王 小s 大s


@names = qw(张三 李四 王五);
@result = grep(/^张/, @names); # 搜索姓张的人名


@numbers = (1, 2, 3);
@result = map($_+1, @numbers); # 对数组的每个元素进行加 1 操作

二维数组

#!/usr/bin/perl

# 定义二维数组，它通常用来存储表格
$users = [["张三",20,"内蒙古"],["李四",21,"辽宁"],["王五",22,"北京"]]; # 定义三行三列的表格


# 访问二维数组
print "@{$users->[0]}\n"; # 打印第一行
print "@{$users->[0]}[0]\n"; # 打印第一行第一列
print "$users->[0][0]\n"; # 打印第一行第一列


# 迭代二维数组
foreach $row(@$users) {
	($name, $age, $adress) = @$row;
	print "$name, $age, $adress\n";
}

标量上下文与列表上下文

将数组用到不同的场合会表现不同的行为，如：将一个数组赋给另个数组和赋给一个标量会产生不同的结果，如下。

#!/usr/bin/perl

################################ 标量上下文与列表上下文
@names = qw(小尚 小王 小李);
@names2 = @names; # 复制数组
$length = @names; # 返回数组的长度
($name) = @names; # 返回数组的第一个元素：小尚
print "@names"; # 打印数组
print scalar @names; # 打印数组的长度，scalar 函数用来强制指定标量上下文

-- 更多参见：Perl 精萃

-- 声 明：转载请注明出处
-- Last Updated on 2012-06-24
-- Written by ShangBo on 2012-06-21
-- End