Question

perl中如何判断一个字符串是否在一个哈希中的值中出现，急急急

当读取一个文件时，我要判断字符串是否在哈希值中出现：
首先有这样一个哈希，$hash{$key1}{'a'}
foreach my $n(0..@f){
if($f[$m]=~/abc/,同时用存在在$hash{$key1}{'a'}中{
$m++;push@{$hash{$key1}{'abc'}, $f[$m];
该怎么表达呢？谢谢
打错了，是同时又存在在这个哈希的值中时

Answer 1

实在是看不太懂你的需求，想判断一个字符是否同时在哈希的键和对应键的值里面。

如果是的话，个人觉得类似的代码是：

#!perl
use strict;
use warnings;

my %hash = (
    # xxxx
);
my $file_name = 'xxxx';

open my $fh, '<', $file_name;

while (my $line = <$fh>) {
    # body...
    chomp $line;
    # ... do something with line

    for my $key (keys %hash) {
        # get hash value
        my $value = $hash{$line};

        # data exist in hash key and value
        if ( index($key, $line) != -1 and index($key, $value) != -1) {
            print "[$line] exist in hash key:[$key] and its value:[$value]$/";
            last;
        }
    }
}

close $fh;

__END__

追问

你好，看你刚回答的，肯定在线，能不能加好友，这样问题能说的清楚。可以加分