Perl使用技巧11：判断变量是否在数组中

arche77

有很多种写法，比较简单的一种是~~号。

@a=('a','b');

$s='a';
if ($s ~~ @a) {
        say 'in array';
}else{
        say 'not in';
}

运行结果如下：

in array
[Finished in 0.0s]

104359176

1. 
   
2. use 5.020;
   
3. use experimental qw(switch autoderef);
   
4. 
   
5. if (['a'] ~~ [['a'],['b']]) {
   
6.     say 'yes';
   
7. } else {
   
8.     say 'not';
   
9. }
   
10. # output: not
    
11. if (('a') ~~ (['a'],['b'])) {
    
12.     say 'yes';
    
13. } else {
    
14.     say 'not';
    
15. }
    
16. # output: not
    
17. if ('a' ~~ ('a','b')) {
    
18.     say 'yes';
    
19. } else {
    
20.     say 'not';
    
21. }
    
22. # output: not
    
23. if ('a' ~~ ['a','b']) {
    
24.     say 'yes';
    
25. } else {
    
26.     say 'not';
    
27. }
    
28. # output: yes
    

复制代码

Perl5 的智能匹配操作符在用作探测是否在一个数组中有一个元素的时候，行为并不是正交的，也就是说，只能在 <字符串> ~~ <字符串一维数组> 情况下通过。
不能匹配嵌套的数据结构，这和其他语言不同。