Learning Perl 学习笔记 Ch15 智能匹配与given-when

1. 智能匹配操作符~~在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	数字是否相等

---

2. 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 "; 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就不能使用具名变量，只能使用默认的$_