最简单的方法来匹配键/字符串的二维数组在Perl中搜索？

Question

与我以前的问题（found here）相关，我希望能够实现用2维数组给出的答案，而不是一维。

Reference Array 
row[1][0]: 13, row[1][1]: Sony 
row[0][0]: 19, row[0][1]: Canon 
row[2][0]: 25, row[2][1]: HP 

Search String: Sony's Cyber-shot DSC-S600 
End Result: 13 

Answer 1

use strict; 
use warnings; 

my @array = (
       [ 19, 'Canon' ], 
       [ 13, 'Sony' ], 
       [ 25, 'HP' ], 
      ); 

my $searchString = "Sony's Cyber-shot DSC-S600"; 

my @result = map { $array[$_][0] }      # Get the 0th column... 
       grep { $searchString =~ /$array[$_][1]/ } # ... of rows where the 
       0 .. $#array;       #  first row matches 

print "@result"; # prints '13' 

这种方法的优点在于它有多个匹配的可能性交易，所以如果索尼和惠普曾经决定在相机上进行合作，你的代码可以同时返回！ （13 25）