Perl学习笔记-9（切片）

列表切片必须在()的后边有一个[]。函数为引入参数而使用的()不算。

• 基本用法

my $mtime=(stat $some_file)[9];  #第10列
my $work=(split /:/)[3];
my ($name, $age)=(split /:/)[1, 5];
my ($first, $last)=(sort $info)[0, -1];
my @nums=(@names)[1, 7, 5, 2, 1, 1, 0];

• 数组切片

my @nums=@names[9,0,3,1,0];  #注$names[3]只能引用单个元素

数组切片可以在双引号中内插。

print "There are @names[7,2,3,2,1]";

数组切片的赋值

@addrs[1,3]=($addr1, $addr2);

• 哈希切片

设有%names
my @alias=($names{'zhangsan'}, $names{'lisi'}, $names{'wangwu'});
my @alias=@names{ qw/ zhangsan lisi wangwu / };  #切片一定是列表，@可以表示列表

切片赋值

设有%score
my @players=qw/zhansan lisi wangwu/;
my @tips=(131, 120, 111);
@score{ @players }=@tips;
print "Some players: @score{@players}\n";  #可以内插