如何使用perl将'|'提交的后台处理文件存储在hash中

我不清楚你是否需要分开任何东西,把你的问题写下来。只需将行直接放入散列中:

#!/usr/bin/env perl

# 
# Usage:  
#
# $ compareFiles.pl foo.txt bar.txt
#

use strict;
use warnings;

my $dataRef;

my $sourceFn = $ARGV[0];
open my $sourceFh, "< $sourceFn";
while (<$sourceFh>) {
    chomp;
    my $sourceKey = $_;
    $dataRef->{$sourceKey} = 1;
}
close $sourceFh;
...

现在,您可以通过打开第二个文件流并检查密钥是否存在来进行比较:

...
my $compareFn = $ARGV[1];
open my $compareFh, "< $compareFn";
while (<$compareFh>) {
    chomp;
    my $comparisonKey = $_;
    if (defined $dataRef->{$comparisonKey}) {
        print STDOUT "We found [ $comparisonKey ] in both files!\n";
    }
}
close $compareFh;

如果需要调整键,以便比较某些值的子集,则使用 split("|", $_) 拆分 $sourceKey 和 $comparisonKey 进入令牌的索引列表,您可以从中构建自定义密钥, 例如 :

my $sourceFn = $ARGV[0];
open my $sourceFh, "< $sourceFn";
while (<$sourceFh>) {
    chomp;
    my @sourceElements = split("|", $_);
    my $sourceKey = join("_", ($sourceElements[1], $sourceElements[3], $sourceElements[4]));
    $dataRef->{$sourceKey} = 1;
}
close $sourceFh;
...    

等

请确保使用与构造所有源密钥相同的过程来构造比较密钥。

此外,您希望将密钥设计为足够独特,以便在两个或多个输入之间作为可靠的比较令牌。

你基本上需要问问自己,你需要在输入之间比较什么。这一点从你的问题中并不清楚,因为那里有很多冗余信息,这使得哈希表的使用有点棘手。