2d 배열의 키/문자열을 perl로 검색하는 가장 간단한 방법은 무엇입니까?

Question

이전 질문 (found here)과 관련하여 1 차원이 아닌 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' 

이 방법의 장점은 소니와 HP는 지금까지 카메라에 협력하기로 결심했다면, 코드 모두를 반환 할 수 있도록이 여러 일치의 가능성을 다루고 있다는 것입니다! (13 25)