如何使用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;