如何以一种模式搜索多个文件并从最新文件中返回匹配的值？

Question

我对 perl 编程完全陌生。请帮助我为此形成一个逻辑。

我在一个目录中有很多文件，例如1.txt, 2.txt, 3.txt, ..., n.txt.

每个文件都包含多个这种格式的数据。 ID 列在文件中是唯一的。

ID | Name  | Place   

1  | name1 | Chennai

2  | name2 | Mumbai

可以更改 ID -1 可以在不同的文件中重复。所以我需要在目录中的所有文件中搜索每个ID，并将每个ID的属性写入另一个文件。生成的文件应具有唯一 ID，并且属性应来自具有最新创建日期的文件。

因此，生成的文件基本上是 ID 和属性的主列表。

请在这方面提供帮助。我只能读取文件并选择它并将其放入不同的文件中。任何人都可以帮助我继续前进。

非常感谢您提前

Answer 1

使用带有 ID 作为键的散列，并将文件中的值按时间戳顺序存储在该散列中。
这是一个原型：

my %data;

for my $file (sort { -M $a <=> -M $b } @files) {
    my @data = process_file($file); # an array of hashrefs like { id => 1, name => "name1", place => 'Chennai' }
    $data{$_->{id}} = $_ for @data;        
}  

然后将哈希中的数据存储到文件中。