Perl: Karma anahtarların düzenli bir ifadeyle eşleştirilmesi

Question

Perl'in belirli bir düzenli ifadeyle eşleşen bir anahtar ile bir hash öğesi olup olmadığını kontrol etmek için yerleşik bir yolu olup olmadığını merak ediyorum. Örneğin: Bunu yapmak için herhangi bir yolu varsa

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

merak ediyorum:

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

Answer 1

smart match operator bunu yapar (Perl v5.10'dan itibaren kullanılabilir).

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

Örnek kullanım:

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

Answer 2

var yerleşik bir yolu, ama CPAN Tie::Hash::Regex var.

Answer 3

Evet, deniyor:

use List::Util qw<first>; 

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

(akıllı maç öncesinde, yani akıllı maç için mob.un yanıta bakın..)

You ayrıca şu anahtarları da sıralayabilir:

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

Bir "operasyonu" içine bu donduracak:

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 }; 
    } 
} 

Ve bunu gibi kullanabilirsiniz: diğer cevaplar ek olarak

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

Ya

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

Answer 4

Burada ayrıca perl'in grep'i ile de yapabilirsiniz:

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