perl智能比较符~~

 参考：

https://www.cnblogs.com/softwaretesting/archive/2011/08/06/2129585.html

https://perldoc.perl.org/perlsyn#Switch-statements

数组比较：

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

通常的做法是，依次比较两个数组对应位置的元素，如果有不相等的元素，立即返回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 ;
    }
}