Perl学习笔记-7

智能匹配操作符

智能匹配操作符是：“ ~~ ”
他会根据两边操作数的数据类型自动判断该用何种方式进行比较或匹配。如果两边的操作数都像数字就按数值来比较大小；如果看起来像字符串，就按字符串方式比较；如果某一端操作数是正则表达式，就当做模式匹配来执行（具有变量绑定 =~ 的功效）。

1. 模式匹配
   基本例子

my $flag=0;
foreach my $key (keys %names){
	next unless $key =~ /Fred/;
	$flag=$key;
	last;
}
print "I found a key matching 'Fred'. It was $flag\n" if $flag;

使用 ~~ 实现相同功能

print "I found a key matching 'Fred'. It was $flag\n" if %names ~~ /Fred/;

智能操作符的实际行为取决于操作数的类型，具体可参考：

$ perldoc perlop
查看Smartmatch Operator部分

2. 数组比较
   示例

my $equal=0;
foreach my $index (0..$#names1){
	last uless $names1[$index] eq $names2[$index];
	$equal++;
}
print "The arrays have the same elements!\n" if $equal == @names1;

相同功能使用~~实现。

print "The arrays have the same elements!\n" if @namesl ~~ @names2;

在数组中遍历的例子

print "The result [$result] is one of the input values(@nums)\n" if @nums ~~ $result;

~~两边操作符前后顺序无所谓。

3. 智能操作符的常见例子

范例	解释
%a ~~ %b	哈希的键是否一致
‘baby’ ~~ %a	是否存在$a{baby}
@a ~~ @b	数组是否相同
@a ~~ /baby/	数组a中至少有一个元素匹配模式/baby/
$wawa ~~ undef $wawa	$wawa没有定义

来源：https://blog.csdn.net/beeworkshop/article/details/98938896