linux - perl 中文件的模式匹配

Question

已关闭。此问题不符合 Stack Overflow guidelines 。目前不接受答案。

---

要求提供代码的问题必须表现出对所解决问题的最低限度的了解。包括尝试的解决方案、为什么它们不起作用以及预期结果。另请参阅:Stack Overflow question checklist

已关闭10 年前。

Improve this question

我想在perl中使用grep，但我在这里感到困惑。我想做的是，有一个文件，例如 -

this is abctemp1
this is temp2
this is temp3x
this is abctemp1

现在，我想使用模式“temp”从该文件中提取唯一的单词，即“abctemp1、temp2、temp3x”，并将其存储在一个数组中。如何做到这一点？

Answer 1

use strict; use warnings;

my (@array, %seen);
/(\w*temp\w*)/ && !$seen{$1}++ && push @array, $1 while <DATA>;
print "$_\n" for @array;

__DATA__
this is abctemp1
this is temp2
this is temp3x
this is abctemp1