Perl-高级perl技巧1

1. 切片

我们往往只需要处理列表中的少量元素

fred flintstone:2168:301 Cobblestone Way:555-1212:555-2121:3
barney rubble:709918:299 Cobblestone Way:555-3333:555-3438:0

while(<$fh>){
	chomp;
	my @items = split /:/;
	my($card_num, $count) = ($items[1], $items[5]);
	... # 现在可以用这两个变量来继续工作
}

但@items数组不会有其它用处，看来是一种浪费，也许用一组标量来容纳split的结果会更好些

my($name, $card_num, $addr, $home, $work, $count) = split /:/;

这的确避免了引入导致浪费的数组@items，不过现在我们又多出来了4个不需要的标量。有种undef的写法，如果被赋值的列表中含有undef的话，就干脆忽略源列表的相应元素

my(undef, $card_num, undef, undef, undef, $count) = split /:/;

不过现在我们需要弄清undef的数量，才能正确获取$count，而且如果列表元素数量稍微多点就更麻烦了

my(undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, $mtime) = stat $some_file; # 想获取mtime值

如果弄错了undef的数量，就可能获得atime或者ctime的值
所以说，更好的办法是：Perl可以使用数组下标来检索列表内容，这就是所谓的列表切片（list slice）

my $mtime = (stat $some_file)[9];

这里stat周围的括号是必需的，因为需要用它们产生列表上下文。下面这样写的话，是错误的

my $mtime = stat($some_file)[9]; # 语法错误！！！

列表切片必须有以一对圆括号括起的列表，后面跟上由方括号括起的下标表达式

my $card_num = (split /:/)[1];
my $count = (split /:/)[5];

在列表上下文中使用列表切片一次取得两个值会更加便捷

my ($card_num, $count) = (split /:/)[1,5];

切片常常是从列表中读取少量值的最简单方法

my($first, $last) = (sort @names)[0,-1];

切片下表可以是任意顺序的，也可以重复

my @names = qw{ zero one two three four five six seven eight nine};
my @numbers = (@names)[9, 0, 2, 1, 0];
print "Bedrock @numbers\n"; # 打印： Bedrock nine zero two one zero

2. 数组切片

在进行数组切片而不是列表切片时，圆括号不是必须的，所以我们可以这样切片

my @numbers = @names[9, 0, 2, 1, 0];

在perl中$符号代表一个东西，而@代表一组东西
变量之前的符号（$或@）决定了下标表达式的上下文，如果前面有个$符号，下标表达式就会在标量上下文中运算并得到单一索引值。但如果之前有个@符号的话，下标表达式就会在列表上下文中运算，从而得到索引列表
@names[2, 5]和($names[2], $names[5])有同样的含义

不过有一个切片可以工作，但是列表却不可以的地方，那就是字符串内插

my @names = qw{ zero, one, two, three, four, five, six, seven, eight, nine };
print "Bedrock @names[9, 0, 2, 1, 0]\n";

如果想内插@names，就会得到数组所有成员构成的字符串，元素之间用空格分隔。如果想内插@names[9, 0, 2, 1, 0]，就会得到指定元素构成的字符串，同样用空格隔开

修改数组中的元素

my $new_home_phone = "555-6099";
my $new_address = "99380 Red Rock West";
@items[2, 3] = ($new_address, $new_home_phone);