-
智能匹配操作符
~~在Perl 5.10中引入，它能根据两端的操作数来决定执行哪种操作，如果操作符左右两边都是标量，则~~会执行比较操作，具体是<=>还是cmp则取决于标量的内容，如果~~看到自己的一边是标量，另一边是正则表达式，则会执行绑定操作符的功能=~
智能匹配操作符还可以做到更多：
(1) 哈希%~~正则表达式：返回布尔值，判断哈希表中是否存在一个键匹配正则表达式。
$flag = %name ~~ /Jason/;
上面这行代码它可以替换下面这一大段内容:
my $flag = 0;
foreach (keys %name) {
next unless $_ =~ /Jason/;
$flag = 1;
last;
}
(2) 数组~~数组：返回布尔值，比较两个数组是否逐项一致，若是，则返回1表示两个数组相等
$result = @array1 ~~ @array2;
(3) 数组 ~~ 标量：返回布尔值，判断标量是否是数组的元素之一
$result = @array ~~ $scalar
demo15-1:
#!/usr/bin/perl
@name = qw /1 Jason Max Woody Penn/;
$flag = "Jason";
$result = 0;
for(@name){
next if $_ cmp $flag;
$result = 1;
print "here: $_\n";
last;
}
print "[@name]\n" if (@name ~~ $flag);
智能匹配符支持的其他操作如下，程序执行时，从上到下扫描这个表，直到两端的操作数匹配，所以这个表也是按优先级排序的。
| 匹配 | 作用 |
|---|---|
%a ~~ %b |
哈希的键是否一致 |
%a ~~ @b |
至少哈希%a中的一个键在列表@b中 |
%a ~~ /Fred/ |
至少哈希%a的一个键匹配模式/Fred/
|
%a ~~ 'Fred' |
$a{'Fred'}是否存在 |
@a ~~ @b |
数组是否相同 |
@a ~~ /Fred/ |
数组@a中至少有一个元素匹配模式/Fred/
|
@a ~~ 123 |
数组@a中至少有一个元素是123或'123'
|
@a ~~ 'Fred' |
数组@a中至少有一个元素是'Fred'
|
$name ~~ undef |
$name尚未定义 |
$name ~~ /Fred/ |
模式匹配 |
123 ~~ '123.0' |
数字和看起来像数字的字符串（被称为numish字符串）是否相等 |
'Fred' ~~ 'fred' |
字符串是否完全相同 |
123 ~~ 456 |
数字是否相等 |
-
given-when控制结构是Perl版的switch语句
given ( $ARGV[0] ){
when( /fred/i ) { say 'Name has fred in it' }
when( /^Fred/) { say 'Name starts with Fred' }
when( 'Fred' ) { say 'Name is Fred' }
default { say "I don't see a Fred" }
}
在这里，given有一个小动作是把$ARGV[0]赋给$_，之后when引导的条件判断语句中，使用$_作为默认操作数，执行哪一种测试取决于$_和测试条件语句的内容，实际上这里使用的就是智能匹配~~。如果测试结果为真就执行代码块内的代码，否则就进行下一个判断，如果所有测试都不为真，则执行default代码块。
when的条件判断语句并不要求一定要使用$_，也可以自定义测试语句。这被称为笨拙匹配，你不仅可以指定操作数，也可以指定具体的测试类型，甚至可以写成when 1来确保测试结果永远为真。
demo15-2:
#!/usr/bin/perl
use 5.010;
my $reserver_user = "root";
given ( $ARGV[0] ){
when($_ =~ /fred/i ) { print 'Name has fred in it' }
when( /^Fred/) { print 'Name starts with Fred' }
when( @ARGV != 1 ){ warn "Usage: ex15-2 <YOUR_NAME>"; continue}
when( $reserver_user eq $ARGV[0]) {print "You cannot use reserverd name\n"; continue }
when( 'Fred' ) { print 'Name is Fred' }
default { print "I don't see a Fred" }
}
默认情况下，执行完匹配对应的代码块就不再继续向下执行新的测试语句，但这是由于在代码块里隐式的包含了break，所以执行完后就会跳出given代码块，但如果像上例那样显式的声明了continue，则不会执行break跳出，而是会继续向下执行下一个条件判断语句。
需要注意的是，因为default的条件判断总为真，如果不想执行default的代码块内容，就要避免在default前的代码块里加入continue
如果要让 given-when结构遍历一个列表中的所有元素，除了把given-when放在foreach代码块以外，也可用foreach直接替换given：
foreach (@ARGV){
when(/Root/){ say "I'm Root.\n"}
when("+x") {say "You can execute it now"}
}
需要注意，如果想在when的条件判断语句里使用智能匹配，那foreach就不能使用具名变量，只能使用默认的$_
