Perl有哪些不为人知的技巧

1. 使用 do 函数来执行一段 Perl 代码，可以避免创建新的变量作用域。

do {
    my $var = 1;
    print $var;
};

2. 使用 $[ 变量可以设置数组的起始索引值，默认为0。

$[ = 1;
my @array = (1, 2, 3);
print $array[1];  # 输出2

3. 使用 ?: 运算符可以简洁地实现条件判断。

my $var = 1;
my $result = $var == 1 ? "One" : "Not One";

4. 使用 //= 运算符可以简洁地实现变量的默认赋值操作。

my $var;
$var //= "default value";

5. 使用 map 和匿名子例程可以实现快速的数组处理操作。

my @array = (1, 2, 3);
my @result = map { $_ * 2 } @array;

6. 使用 grep 和匿名子例程可以实现快速的数组过滤操作。

my @array = (1, 2, 3, 4, 5);
my @result = grep { $_ % 2 == 0 } @array;