perl中的~~做了什么？

Question

我看到这段代码，不明白它在做什么，它编译成功。我搜索了~~运算符，但没有运气。

unless ($1 ~~ @tables) { 
push @tables, $1; 
} 

Answer 1

参考：http://perldoc.perl.org/perlop.html#Smartmatch-Operator

首先在Perl 5.10.1用（5.10.0版本表现不同），二进制~~做它的参数之间的 “smartmatch”。

~~操作符比较其操作数“多态”，根据它们的实际类型（数字，字符串，数组，哈希等）确定如何比较它们。与共享相同优先级的相等运算符一样，〜 〜返回1为真，“”为假。在“in”，“inside of”或“contains in”中通常最好是朗读，因为左操作数通常在右操作数内部查找。这使操作数的顺序与smartmatch操作数的顺序通常与常规匹配操作符的顺序相反。换句话说，“较小”的东西通常放在左边的操作数中，而较大的一个放在右边。

Answer 2

这是一个smartmatch运算符。

如果您想了解Perl Operator，只需键入perldoc perlop。