阅读量:149
- 使用
do函数来执行一段 Perl 代码，可以避免创建新的变量作用域。
do {
my $var = 1;
print $var;
};
- 使用
$[变量可以设置数组的起始索引值，默认为0。
$[ = 1;
my @array = (1, 2, 3);
print $array[1]; # 输出2
- 使用
?:运算符可以简洁地实现条件判断。
my $var = 1;
my $result = $var == 1 ? "One" : "Not One";
- 使用
//=运算符可以简洁地实现变量的默认赋值操作。
my $var;
$var //= "default value";
- 使用
map和匿名子例程可以实现快速的数组处理操作。
my @array = (1, 2, 3);
my @result = map { $_ * 2 } @array;
- 使用
grep和匿名子例程可以实现快速的数组过滤操作。
my @array = (1, 2, 3, 4, 5);
my @result = grep { $_ % 2 == 0 } @array;