检查是否元素是哈希？(Checking if element is in hash?)

好吧，我有以下的散，我试图引用的元素相匹配：

$VAR1 = {
          '743' => '00:1',
          '20687' => '01:3',
};

有人能告诉我，我该如何检查，看看是否值00：1' （作为一个例子），另一个变量相匹配？这是我目前拥有和不工作：

if($pids{$pid} == qr/$time/){
    $pids{$pid}{$time}[$y] = $line;
    $y++;
};

我也试过if(exists($pids{$pid}{$time}))和其他几个人。

UPDATE

对下面的问题，是的pid哈希，％的PID。

这是哈希表怎么弄出来的时候我没有匹配到$时间，这正是我想要的运行它：

$VAR1 = {
          '743' => '00:1',
          '4771' => {
                      '23:5' => [
                                  'Dec  1 23:59:23 ftp1 ftpd[4771]: USER test
',
                                  'Dec  1 23:59:23 ftp1 ftpd[4771]: PASS password
',
                                  'Dec  1 23:59:23 ftp1 ftpd[4771]: FTP LOGIN FROM 192.168.0.2 [192.168.0.2], test
',
                                  'Dec  1 23:59:23 ftp1 ftpd[4771]: CWD /home/test/
',
                                  'Dec  1 23:59:23 ftp1 ftpd[4771]: TYPE Image
',
                                  'Dec  1 23:59:23 ftp1 ftpd[4771]: PASV
',
                                  'Dec  1 23:59:23 ftp1 ftpd[4771]: RETR test
',
                                  'Dec  1 23:59:23 ftp1 ftpd[4771]: QUIT
',
                                  'Dec  1 23:59:23 ftp1 ftpd[4771]: FTP session closed
'
                                ]
                    },

下面是一个会来通过数据的例子：

Dec  1 23:59:03 ftp1 ftpd[4771]: USER test
Dec  1 23:59:03 ftp1 ftpd[4771]: PASS password  
Dec  1 23:59:03 ftp1 ftpd[4771]: FTP LOGIN FROM 192.168.0.02 [192.168.0.2], test  
Dec  1 15:02:03 ftp1 ftpd[4771]: CWD /home/test  # Looks same but different time so not a match  
Dec  1 23:59:03 ftp1 ftpd[4771]: CWD /home/test  
Dec  1 23:59:03 ftp1 ftpd[4771]: TYPE Image

所以你可以在上面看到，我可以有两行不同“的pid”，我只想匹配时代的一个，而不是两个。

如果您需要更多关于这方面的信息，我有一个问题我已打开所有的细节，但似乎是一潭死水： 用散列播放从Perl中的FTP流量

如果你可以提取$time从每行，这很容易：

use strict;
use warnings;
use Data::Dump;

my %pids;

while (my $line = <>) {
    chomp $line;
    my ($time, $pid) = $line =~ /([0-9]{1,2}:[0-9]) .*? \[([0-9]+)\] /x or next;
    push @{ $pids{$pid}{$time} }, $line;
}

dd \%pids;

__DATA__
Dec  1 23:59:03 ftp1 ftpd[4771]: USER test
Dec  1 23:59:03 ftp1 ftpd[4771]: PASS password  
Dec  1 23:59:03 ftp1 ftpd[4771]: FTP LOGIN FROM 192.168.0.02 [192.168.0.2], test  
Dec  1 15:02:03 ftp1 ftpd[4771]: CWD /home/test  # Looks same but different time so not a match  
Dec  1 23:59:03 ftp1 ftpd[4771]: CWD /home/test  
Dec  1 23:59:03 ftp1 ftpd[4771]: TYPE Image
Dec  2 23:12:03 ftp1 ftpd[1234]: USER test
Dec  2 23:12:03 ftp1 ftpd[1234]: PASS password  
Dec  2 23:12:03 ftp1 ftpd[1234]: CWD /home/test

这将产生以下输出：

{
  1234 => {
            "23:1" => [
              "Dec  2 23:12:03 ftp1 ftpd[1234]: USER test",
              "Dec  2 23:12:03 ftp1 ftpd[1234]: PASS password  ",
              "Dec  2 23:12:03 ftp1 ftpd[1234]: CWD /home/test ",
            ],
          },
  4771 => {
            "15:0" => [
                        "Dec  1 15:02:03 ftp1 ftpd[4771]: CWD /home/test  # Looks same but different time so not a match  ",
                      ],
            "23:5" => [
                        "Dec  1 23:59:03 ftp1 ftpd[4771]: USER test",
                        "Dec  1 23:59:03 ftp1 ftpd[4771]: PASS password  ",
                        "Dec  1 23:59:03 ftp1 ftpd[4771]: FTP LOGIN FROM 192.168.0.02 [192.168.0.2], test  ",
                        "Dec  1 23:59:03 ftp1 ftpd[4771]: CWD /home/test  ",
                        "Dec  1 23:59:03 ftp1 ftpd[4771]: TYPE Image",
                      ],
          },
}

如果你只在一组预定义的PID和时间的兴趣，你也许可以这样做：

my %pids = (
    5678 => { '00:1' => [] },
    4771 => { '23:5' => [] },
);

while (my $line = <>) {
    chomp $line;
    my ($time, $pid) = $line =~ /([0-9]{1,2}:[0-9]) .*? \[([0-9]+)\] /x or next;
    if (exists $pids{$pid} and exists $pids{$pids}{$time}) {
        push @{ $pids{$pid}{$time} }, $line;
    }
}

要么

my %times;
@times{qw/ 00:01 23:5 /} = ();

...

    push @{ $pids{$pid}{$time} }, $line if exists $times{$time};

如果没有办法提取行时间以一般的方式，你可以匹配所有可能的时间：

my %pids = (
    5678 => { '00:1' => [] },
    4771 => { '23:5' => [] },
);

while (my $line = <>) {
    chomp $line;
    my ($pid) = $line =~ /\[([0-9]+)\]/ or next;
    next if not exists $pids{$pid};
    my $time_regex = join '|', map quotemeta, keys %{ $pids{$pid} };
    my ($time) = $line =~ /($time_regex)/ or next;
    push @{ $pids{$pid}{$time} }, $line;
}