perl - 从文件中提取单词，但每个单词一次

Question

我想编写一个 perl 程序来读取文件并提取其中的日期。但是，如果日期经过多次，我将只打印一次。例如:

On 01/10/2011 I went home. On 02/02/2012, I
went to my school. On 02/02/2012, I went
to London.

输出应该是:

01/10/2011
02/02/2012

我可以通过将日期添加到数组并在每次读取新日期时控制它来实现。但我要求一种更有效的方法。有没有合乎逻辑的方法来做到这一点？或 perl 中的任何数据结构？

Answer 1

它将逐行扫描以查找 \d\d/\d\d/\d{4} 格式的日期并将它们作为键保存在散列中。

文件读取完成后，它会打印这些唯一键。

perl -nE '$s{$_}++ for m| (\d\d/\d\d/\d{4}) |xg;}{say for sort keys %s' file

它可以被翻译成更易读的形式(加上一些检查)

use strict;
open my $fh, "<", "file" or die $!;

my %s;
while (my $line = <$fh>) {

  my @dates = $line =~ m| (\d\d/\d\d/\d{4}) |xg;

  for my $date (@dates) {
    $s{$date} += 1;
  }
}

for my $date (sort keys %s) {

  print $date, "\n";
}