Perl 如何打印两个文件之间数字不匹配的实例名称？

我想对每个实例名称的2个文件进行数字比较，并输出任何不匹配的属性

Ref.txt：

CELLA CELLA 0.0000 0.0000 0 0 50 47 100 390 798 1000 3349 2938
CELLA/I0/I0 INV 0.0200 0.2210 0 0 20 200 30 100 430 770 230 940
CELLA/I0/I2 INV 1.0400 0.2210 0 0 530 200 250 261 1230 670 1240 390

New.txt：

CELLA CELLA 0.0000 0.0000 0 0 50 47 100 390 798 1000 3349 2938
CELLA/I0/I2 INV 1.0400 0.2218 0 0 530 200 250 261 1230 670 1240 390
CELLA/I0/I0 INV 0.0200 0.2210 0 0 20 200 30 100 430 770 230 940

预期输出（CELLA/I0/I2，其中0.2218不等于0.2210）：

我的代码到目前为止，我应该如何修复我的代码

use strict;

my %hash;

sub read_hash {
  my $fname = shift;
  open(my $fh, "<", $fname) or die "$!";
  while (<$fh>) {
    chomp;
    my ($occurname, $tempname, $x, $y, $reflection, $rotation, $xy1, $xy2, $xy3,$xy4,  
 $xy5, $xy6, $xy7, $xy8, $xy9, $xy10, $xy11, $xy12, $xy13) = split /\s+/, $fh;
  }
}

my %hash1 = read_hash("Ref.txt");
my %hash2 = read_hash("New.txt");

if ($hash1{$x}{$y}{$reflection}{$rotation}{$xy1}{$xy2}{$xy3}{$xy4}{$xy5}{$xy6}{$xy7}{$xy8}{$xy9}{$xy10}{$xy11}{$xy12}{$xy13}
    != $hash2{$x}{$y}{$reflection}{$rotation}{$xy1}{$xy2}{$xy3}{$xy4}{$xy5}{$xy6}{$xy7}{$xy8}{$xy9}{$xy10}{$xy11}{$xy12}{$xy13}) {
  print "$occurname has mismatch property";
}
else {
  print "Match\n";
}

使用严格；
我的%hash；
子读取散列{
我的$fname=班次；
打开（my$fh，“您没有从子读取散列返回任何内容

添加类似于
$hash{$x}{$y}的内容..=$occurname；
在while循环中，并在子循环的末尾返回%hash

。

很抱歉，但我不想通过您的代码解释所有问题。最大的错误是嵌套hash不是这样工作的。下面是一个完整的修订版，可以满足您的要求

use strict;
use warnings;

my %ref_data;

open my $fh, '<', 'Ref.txt' or die $!;
while (<$fh>) {
  chomp;
  my ($occurname, $tempname, @data) = split;
  $ref_data{$occurname} = \@data;
}

open $fh, '<', 'New.txt' or die $!;
while (<$fh>) {
  my ($occurname, $tempname, @data) = split;
  my $ref_data = $ref_data{$occurname};
  unless ($ref_data and grep($data[$_] != $ref_data->[$_], 0..$#data) == 0) {
    print "$occurname has mismatch property\n";
  }
}

---

你可以先格式化你的代码，使其可读。我这次为你做了，但请使用空格，特别是缩进，使代码的结构和意义更加明显。OP不需要17级哈希。目的似乎是确保从第三级开始的所有列都是相同的f或者第一列的给定值。将数据用作哈希键根本没有帮助。如果0.26不等于0.2600，则会发生错误。我将eq更改为==但仍会发生错误。我确实希望知道此命令行是关于什么的。除非（$ref\u data和grep（$data[$\]！=$ref\u data->[$\]，0..$\35; data）==0）@安妮尔：好的，我已经修好了。请你自己努力一下。

use strict;
use warnings;

my %ref_data;

open my $fh, '<', 'Ref.txt' or die $!;
while (<$fh>) {
  chomp;
  my ($occurname, $tempname, @data) = split;
  $ref_data{$occurname} = \@data;
}

open $fh, '<', 'New.txt' or die $!;
while (<$fh>) {
  my ($occurname, $tempname, @data) = split;
  my $ref_data = $ref_data{$occurname};
  unless ($ref_data and grep($data[$_] != $ref_data->[$_], 0..$#data) == 0) {
    print "$occurname has mismatch property\n";
  }
}

CELLA/I0/I2 has mismatch property