Perl : 해시 키를 정규 표현식에 일치 시키십시오.

Question

특정 정규 표현식과 일치하는 키를 가진 해시 요소의 존재를 확인하는 내장 된 방법이 있는지 궁금합니다. 예를 들어 :이 작업을 수행 할 수있는 방법이 있다면

my %h = ('twelve' => 12, 'thirteen' => 13, 'fourteen' => 14); 

궁금하네요 :

print "We have 12\n" if exists $h{twelve}; 
print "We have some teens\n" if exists $h{/.*teen$/}; 

Answer 1

smart match operator (Perl v5.10부터 사용 가능)

$a  $b  Type of Match Implied Matching Code 
====== =====  ===================== ============= 
... 
Regex Hash  hash key grep   grep /$a/, keys %$b 
... 

샘플 사용 :

# print if any key in %h ends in "teen" 
print "We have some teens\n" if /.*teen$/ ~~ %h; 

Answer 2

있다 어떠한 내장 방식으로,하지만 CPAN에 Tie::Hash::Regex이 있습니다.

Answer 3

그래,라고 :

use List::Util qw<first>; 

# Your regex does not compile perhaps you mean /teen$/ 
my $value = $hash{ (first { m/teen/ } keys %hash) || '' }; 

(스마트 일치하기 전에, 즉 스마트 일치 폭도의 답변을 참조하십시오.).

에게 당신을 키를 정렬 할 수도 있습니다 :

my $value = $hash{ (first { m/teen/ } sort keys %hash) || '' }; 

내가 "작업"이 점을 동결 :

use Scalar::Util qw<reftype>; 

sub values_for_keys_like (\[%$]$) { 
    my $ref = reftype($_[0]) eq 'HASH' ? $_[0] : $$_[0]; 
    return unless my @keys = keys %$ref; 

    my $regex = shift; 
    # allow strings 
    $regex = qr/$regex/ unless my $typ = ref($regex); 
    # allow regex or just plain ol' filter functions. 
    my $test = $typ eq 'CODE' ? $regex : sub { return unless m/$regex/; 1 }; 

    if (wantarray) { 
     return unless my @k = grep { defined $test->($_) } @keys; 
     return @$ref{ @k }; 
    } 
    else { 
     return unless my $key = first { defined $test->($_) } @keys; 
     return $ref->{ $key }; 
    } 
} 

그리고 당신과 같이 사용할 수 있습니다 : 다른 답변에 추가

my $key = values_for_keys_like(%hash => qr/teen/); 

또는

my $key = values_for_keys_like($base->{level_two}{level_three} => qr/teen/); 

Answer 4

여기에도 perl의 grep을 사용하여 이것을 할 수 있습니다 :

print "We have some teens\n" if grep {/.*teen/} keys %h;