2文本文件比较和识别不匹配的类型

Question

我有这个代码比较两个示例文本文件并报告任何数字不匹配。

文本1：

C_A C_A 0.0000 0.0000 0 0 50 47 100 390 
C_A/I0/I2 INV 1.0400 0.2210 0 0 530 200 250 261 
C_A/I0/I0 INV 0.0200 0.2210 0 0 20 200 30 100 

文本2：

C_A C_A 0.0000 0 0 0 50 47 100 390 
C_A/I0/I0 INV 0.0200 0.2213 0 0 20 200 40 100 
C_A/I0/I2 INV 1.00 0.2210 1 1 535 200.00 250 261 

代码：

use strict; 
use warnings; 

my %ref_data; 

open my $fh, '<', 'Text1' or die "Could not open to read: $!"; 
while (<$fh>) { 
    chomp; 
    my ($occurname, $tempname, @data1) = split; 
    $ref_data{$occurname} = \@data1; 
} 

open $fh, '<', 'Text2' or die "Could not open to read: $!"; 
while (<$fh>) { 
    my ($occurname, $tempname, @data2) = split; 
    my $data1 = $ref_data{$occurname}; 

    for (0 .. $#data2) { 
    if ($data1->[$_] != $data2[$_]) { 
     print "$occurname $tempname has mismatch property\n"; 
     last; 
    } 
    } 
} 

输出：

C_A/I0/I0 INV has mismatch property 
C_A/I0/I2 INV has mismatch property 

我想增加我的代码，其中@data的内容在下面的顺序($x_os $y_os $reflection $rotation @nodes)与错误消息一起输出以方便用户进行调试。

所需的输出：

C_A/I0/I0 INV has mismatch property (y_os,nodes) 
C_A/I0/I2 INV has mismatch property (x_os,reflection,rotation,nodes) 

Answer 1

因为我假定的意思给您需要的输出，我张贴这种解决方案。

的主要区别在于，而不是打印的消息，并尽快任何发现差别时移动到下一个散列元件，它比较字段的所有和上推任何不同字段的名称阵列@diffs。如果@diffs不为空，则在全部之后进行比较。

use strict; 
use warnings; 

my %ref_data; 

open my $fh, '<', 'Text1' or die "Could not open to read: $!"; 
while (<$fh>) { 
    chomp; 
    my ($occurname, $tempname, @data1) = split; 
    $ref_data{$occurname} = \@data1; 
} 

my @fields = qw/ x_os y_os reflection rotation /; 

open $fh, '<', 'Text2' or die "Could not open to read: $!"; 
while (<$fh>) { 
    chomp; 
    my ($occurname, $tempname, @data2) = split; 
    my $data1 = $ref_data{$occurname}; 

    my @diffs; 

    for my $i (0 .. $#data2) { 
    if ($data1->[$i] != $data2[$i]) { 
     if ($i < 4) { 
     push @diffs, $fields[$i]; 
     } 
     else { 
     push @diffs, 'nodes'; 
     last; 
     } 
    } 
    } 

    printf "%s %s has mismatch property (%s)\n", $occurname, $tempname, join(', ', @diffs) if @diffs; 
} 

输出

C_A/I0/I0 INV has mismatch property (y_os, nodes) 
C_A/I0/I2 INV has mismatch property (x_os, reflection, rotation, nodes)