测试字符串是否包含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
}

什么是最好的方法呢？(最好简明扼要地包含在if语句中)

Answer 1

#!/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";
  }
}