【perl】智能匹配操作符~~

1. 判断某个元素是否在给定的数组中

sub test{
    if(@array ~~ $value){
        print "$value was found!\n" ;
    }
    else{
        print "$value was not found!\n" ;
    }
}

2. 判断两个数组所有元素是否相同

sub test{
    if(@array1 ~~ @array2){
        return 1 ;
    }
    else{
        return 0 ;
    }
}

3. 正则表达式匹配

~~可以完全代替=~进行匹配，而且比=~更强大

my @array = ("abcd", "xyz", "123", 456) ;
print "found match!\n" if @array ~~ /xyz/ ;