如何存儲'|使用哈希「delimeted假脫機文件的perl

Question

下面是我的文本文件具有

3PTTN8KS4DE6CT67NJC0|8269076305|22-FEB-13|-79|352 
3PTTN8KS4DE6CT67NJC0|8269076305|22-FEB-13|90.83|387 
3PY9MEMG0187YWJMBYA1|1114216131|15-FEB-13|-79|352 
3PY9MEMG0187YWJMBYA1|1114216131|15-FEB-13|82.95|387 
3Q335ZZGMDHZH9GV7TC1|1884476900|20-FEB-13|-79|352 
3Q335ZZGMDHZH9GV7TC1|1884476900|20-FEB-13|89.27|387 
3QA1Y5QTETP9N984P6W0|685532706|19-FEB-13|-79|352 
3QA1Y5QTETP9N984P6W0|685532706|19-FEB-13|90.83|387 
3QB8WFBAM94R4WG1Z5R1|1250545621|15-FEB-13|-79|352 
3QB8WFBAM94R4WG1Z5R1|1250545621|15-FEB-13|89.27|387 

現在我想讀所有這些值轉換爲Perl哈希格式。而這個文件是一個巨大的文件，必須與另一個巨大的文件進行比較。爲此，我想將它存儲在perl hash中並進行比較。

只需要如何使用perl hash保存這些數據的幫助。

Answer 1

我不清楚你需要分割任何東西，寫下你的問題。只要把行成散列直接：

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

等等

務必建立基於您用於構建所有信號源鍵相同的過程比較關鍵。

此外，您希望將您的密鑰設計得足夠獨特，以作爲兩個或多個輸入之間的可靠比較標記。

你基本上需要問自己，你需要什麼來比較輸入。這個問題並不清楚，因爲存在大量冗餘信息，這使得使用哈希表有點棘手。