具体应用
案例一，判断某个元素是否在给定的数组中
这算是一个比较常见的问题，如果不用智能匹配操作符的话，我想多数人会这样写程序
my $value = 3 ; my @array = (1, 2, 3, 4, 5) ; sub test{ for(@array){ if ($value == $_){ print "$value was found!\n" ; return ; } } print "$value was not found!\n" ;} 但是，有了智能匹配操作符，程序就简单多了，如下
sub test{ if(@array ~~ $value){ print "$value was found!\n" ; } else{ print "$value was not found!\n" ; }} 案例二，判断两个数组所有元素是否相同
通常的做法是，依次比较两个数组对应位置的元素，如果有不相等的元素，立即返回0，如果都相等，则返回1，程序应该是下面的样子。
sub test{ for my $i (0 .. $#array1){ if($array1[$i] != $array2[$i]){ return 0 ; } } return 1 ;} 有了智能匹配操作符，可以像下面这样写啦，太简单了！
sub test{ if(@array1 ~~ @array2){ return 1 ; } else{ return 0 ; }} 案例三，正则表达式匹配
~~可以完全代替=~进行匹配，而且比=~更强大，比如要判断数组中是否有满足匹配的元素，直接可以这样写
my @array = ("abcd", "xyz", "123", 456) ; print "found match!\n" if @array ~~ /xyz/ ; 没有必要再逐个元素进行匹配了。
案例四，普通比较
~~还能代替普通的比较操作符，我们知道，在perl中，数字比相等较用==，字符串相等比较用eq，有了~~，就不必考虑类型问题了，它会根据待比较的数选择合适的操作符进行比较的
print "number equal\n" if 1 ~~ 2 ; print "string equal\n" if 'abc' ~~ 'abc' ;
smart matching in details
智能匹配到底能做多少事？这里有个详细的列表。
在网页上搜索smart matching in detail即可。