Perl中的一些技巧性语法收集

Perl中不少常规语法有特殊用法,使得有很多【少为人知】的技巧性写法。本文收集了一些,欢迎大家提供文中未涉及的技巧,感谢。

部分操作符技巧性用法总结:perl secret

Perl Shell

Perl没有像Python、Ruby一样自带交互式的Shell接口,有时候做些简短的测试没有交互式的Shell不是很方便。但实现起来也很方便:

while(print ">> ") {
  chomp ($_ = <>);
  /^q$/ && last;  # 输入q退出,此外last或exit也可以退出
  say "=> ", (eval $_) // "undef";
}

可以设置一个shell命令的命令别名,方便地启动这个简陋但方便的Perl Shell:

alias ipl='perl -E'\''while(print">> "){chomp($_=<>);/^q$/&&last;say"=> ",(eval$_)//"undef";}'\'

可省略token之间的空白

如果两个相邻的token之间连在一起不会产生歧义,那么可以省略这两个token之间的空白分隔符。

print"abc","def\n";   #-> print "abc","def\n"
print$var;      #-> print $var
my$var="abc";   #-> my $var
print~~length$var #-> print length $var

但下面写法会被错误解析,它会当作调用print1函数并传递参数3来解析(注意参数是3而不是+3,参见+符号)。

print1+3;

+符号

在某些省略函数调用括号时,为了避免可能产生的歧义,可在第一个参数前使用+,表示让后面的表达式作为函数参数,相当于加了函数调用的括号。

print(3+4)*4;     # (1).输出7
print ((3+4)*4);  # (2).输出28
print +(3+4)*4;   # (3).输出28,等价于(2)

~~强制转换为标量上下文

有些地方需要标量上下文,但可能处于列表上下文环境,可以使用scalar来强制转换为标量上下文,也可以使用~~强转为标量上下文。单个~表示位取反,且要求标量上下文,两个~表示位取反两次,相当于没有取反,因此将上下文强转为标量上下文,但却不影响计算结果。

my @arr = qw(a b c d);
say [email protected];        # 4
say scalar @arr;   # 4

标量上下文中的列表赋值

Perl中的赋值语句有返回值,结合上下文的用法,Perl的赋值操作非常非常灵活。

例如,最简单的赋值语句:

$a = 33;  # 赋值语句直接返回所赋值

标量上下文中的列表:

# 变量被赋值为列表最后一个元素
# 赋值语句也返回最后一个元素的值
$a = (11,22,33);
$a = qw(11,22,33);

列表上下文中的列表:

($a, $b) = (11,22,33);       # (1)
($a) = (11,22,33);           # (2)
($a,$b,$c,$d) = (11,22,33);  # (3)

上面这种赋值语句将前后对应逐个赋值,左边多出的变量被赋值为undef,右边多出的数据被丢弃。

但是注意,这种列表上下文中的列表赋值语句的返回值:在列表上下文中返回左边列表,在标量上下文中返回右边列表的长度

# 赋值语句在列表上下文:
@arr = ($a, $b) = (11,22,33);   # @arr = (11,22)
say (($a, $b) = (11,22,33));    # 输出:1122

# 赋值语句在标量上下文
$len = () = (11,22,33);         # $len = 3
say ~~(($a, $b) = (11,22,33));  # 输出:3