如何在textmate或perl中查找单词列表并将其替换为单词列表

Question

我有一长串单词，如下

word1
word2
word3
word4
word5
word6
word7

我想在不单独查找单词的情况下对这些单词进行查找和替换。我想创建一个查找目标的列表并运行一次，例如我的目标列表如下。

word2
word4
word6

我怎么能做到这一点，它能在textmate中完成吗。当然也考虑了替代方案，但我不熟悉perl脚本。

Answer 1

我不确定你想要什么，但听起来你想从第二个文件创建一个正则表达式，并将其应用于第一个文件中的每一行。类似（未经测试）：

use autodie;
open my $fh, '<', $second_file;
chomp( my @lines = <$fh> );
close $fh;
my $joined = join( q{|}, map { quotemeta( $_ ) } @lines );
my $qr = qr{ $joined };
open $fh, '<', $first_file;
while( <$fh> ){
  if( /$qr/ ){
    print;
  }
}
close $fh;