Perl: Coincidencia de claves hash con una expresión regular

Question

Me pregunto si Perl tiene una forma incorporada de verificar la existencia de un elemento hash con una clave que coincida con una expresión regular determinada. Por ejemplo:

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

Me pregunto si hay alguna manera de hacer esto:

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

Answer 1

El smart match operator hace esto (disponible desde Perl v5.10).

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

Ejemplo de uso:

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

Answer 2

No hay manera integrada, pero no hay Tie::Hash::Regex en CPAN.

Answer 3

Sí, se llama:

use List::Util qw<first>; 

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

(Antes del partido inteligente, es decir Véase la respuesta de turba para el partido inteligente..)

Usted también podría ordenar las claves:

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

Me congele esto en una "operación":

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

Y se podría utilizar de este modo:

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

O

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

Answer 4

Además de las otras respuestas aquí también puedes hacer esto con grep de perl:

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