Perl遍历两个哈希表并比较键值的问题及解决

我最近遇到个Perl哈希表的问题：手里有两个哈希表，想遍历第一个哈希的键（比如tcp、tls、dns这些协议名），在第二个哈希里找到对应的键，然后计算两个键对应值的差值，输出类似tcp=19187的结果。但一开始写的代码出了问题——明明键不匹配，if ($key1 == $key2)却会把第二个哈希的所有键都匹配上，比如第一个哈希取tcp的时候，第二个哈希里的tls、http这些键也都被当成匹配了。

初始错误代码 #

#!/usr/bin/perl
open my $fh, "newlogs.txt" or die $!;
my %line_1 = split ' ', <$fh>;
my %line_2 = split ' ', <$fh>;
while (my($key1, $value1) = each %line_1) {
    while (my($key2, $value2) = each %line_2) {
        if ($key1 == $key2) {
            print "$key1 $key2\n";
        }
    }
}

问题根源 #

问题出在比较运算符用错了：==是Perl里的数值比较运算符，而我们的键是字符串（比如"tcp"、"tls"）。当用==比较字符串时，Perl会把字符串自动转换成数值——非数字开头的字符串会被转成0，所以所有的字符串键都会被当成0来比较，自然就会出现“所有键都匹配”的错误。

另外，嵌套遍历两个哈希的写法效率很低，完全没必要——哈希的核心优势就是通过键直接访问值，根本不需要循环第二个哈希去找匹配的键。

解决代码 #

#!/usr/bin/perl
open my $fh, "newlogs.txt" or die $!;
my %line_1 = split ' ', <$fh>;
my %line_2 = split ' ', <$fh>;
for (keys %line_1) {
    unless (exists $line_2{$_} ){
        print "$_: not found in second hash\n";
        next;
    }
    if ($line_1{$_} eq $line_2{$_} ) {
        print "$_: no change \n";
    } else {
        my $result = $line_1{$_} - $line_2{$_};
        print "$_=$result\n";
    }
}

代码解释 #

1. 高效遍历键：用for (keys %line_1)直接遍历第一个哈希的所有键，比嵌套循环简洁高效得多。
2. 检查键是否存在：用exists $line_2{$_}先确认第二个哈希里有对应的键，避免后续访问不存在的键导致警告或错误。
3. 正确的比较方式：这里值是数字，其实用==比较值也可以，但用eq更严谨（如果值有可能是带前导零的字符串时）；如果只需要计算差值，甚至可以跳过比较直接做减法。
4. 输出预期结果：计算两个值的差值后，按照键=差值的格式输出，完全符合需求。

输入文件内容（newlogs.txt） #

tcp 217837 tls 138531 http 50302 udp 37852 dns 23625 ldap 14160 krb5 8828 smb 2148 ssh 549 ftp 219 smtp 161 icmp 6 rdp 3 ssdp 3
tcp 198650 tls 125770 http 44260 udp 37610 dns 23827 ldap 13904 krb5 8805 smb 2128 ssh 629 ftp 219 smtp 156 icmp 5 ssdp 1

内容的提问来源于stack exchange，提问作者temp44