gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 07:11:52 25 4
gpt4 key购买 nike

我想编写一个 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 中的任何数据结构?

最佳答案

它将逐行扫描以查找 \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";
}

关于perl - 从文件中提取单词,但每个单词一次,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16859981/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com