Perl: сопоставление хэш-ключей с регулярным выражением

Мне интересно, имеет ли Perl встроенный способ проверить наличие хэш-элемента с ключом, соответствующим определенному регулярному выражению. Например:

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

Ответ 1

Оператор smart match делает это (доступно с 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;

Ответ 2

В дополнение к другим ответам здесь вы также можете сделать это с помощью perl grep:

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

Ответ 3

Да, он назвал:

use List::Util qw<first>;

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

(Перед умным совпадением, то есть. См. ответ mob для умного соответствия.)

Вы также можете отсортировать ключи:

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/ );

Ответ 4

Нет встроенного способа, но там Tie::Hash::Regex в CPAN.