windows - Perl 脚本自动化 : search for certain items in notepad

Question

我必须使用 CTRL+F 搜索某些项目，这些项目每天在记事本中几乎有 100 个。我想知道，有什么方法可以让我编写脚本或任何东西否则，我将向其传递所有项目，如果成功，它将给我搜索输出，即应该返回在记事本中找到的所有项目。

我在 windows 上工作。请帮忙，因为它浪费了我的时间，在不久的将来，如果项目增加到 1000，这对我来说将是一个巨大的解决方法。

我对 Perl 有一些想法，我认为它在 Perl 中是可能的，所以我在这里提出了这个问题。但是如果你想用任何其他语言提供你的脚本，请提供。I n需要一个解决方案。

Answer 1

use strict;
use warnings;

my $qfn   = 'file.txt';
my @terms = ( 'foo', 'bar', ... );

my %terms_not_found = map { $_ => 1 } @terms;

open(my $fh, '<', $qfn)
   or die("Can't open \"$qfn\": $!\n");

while (<$fh>) {
   for my $term (keys(%terms_not_found)) {
      delete $terms_not_found{$term} if /\Q$term/;
   }

   last if !%terms_not_found;
}

print("Found:\n");
print("$_\n")
   for grep !$terms_not_found{$_}, @terms;