Проверьте, содержит ли строка ключ хэша в Perl

Question

У меня есть строка и вы хотите узнать, содержит ли она ключ хеша, и если это так, я хотел бы напечатать значение хэша так:

#!/usr/bin/perl -w 

my %h = ('key1' => 'v1', 'key2' => 'v2', 'key3' => 'v3'); 
my $str = "this is a string containing key1\n"; 
if ($str contains a key of %h){ 
    print the value of that key; #i.e v1 
} 

Каков наилучший способ для этого? (Желательно достаточно кратким, чтобы содержать в если заявление)

Answer 1

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

my %h = ('key1' => 'v1', 'key2' => 'v2', 'key3' => 'v3'); 
my $hash_keys = qr/${\ join('|', map quotemeta, keys %h) }/; 

my @strings = (
    "this is a string containing key1\n", 
    "another string containing key1\n", 
    "this is a string containing key2\n", 
    "but this does not\n", 
); 

foreach my $str (@strings) { 
    print "$str\n" if $str =~ $hash_keys; 
} 

Answer 2

#!/bin/perl -w 

my %h = ('key1' => 'v1', 'key2' => 'v2', 'key3' => 'v3'); 
my $str = "this is a string containing key1\n"; 
while (($key, $value) = each %h) { 
    if (-1 != index($str, $key)) { 
    print "$value\n"; 
    } 
} 

Answer 3

В некоторых случаях (большой хэш, ключи слова, и вы не хотите, чтобы соответствовать суб-слов) это может быть правильный подход:

my %h = ('key1' => 'v1', 'key2' => 'v2', 'key3' => 'v3'); 
my $str = "this is a string containing key1 and key3 but notkey2, at least not alone\n"; 

while ($str =~ /(\w+)/g) { 
    my $v = $h{$1}; 
    print "$v\n" if defined $v; 
}