我想在使用Perl找到匹配模式后添加元素到阵列

Question

我已经将文件的所有行复制到数组，并循环此数组进行模式匹配，一旦模式匹配，我想将行添加到相同的数组并打印在另一个文件中。

my @lines = <FILE_IN>; 
foreach my $line (@lines){ 
if($line =~m/\s(\w*)_region\s/){ 
print $line; 
} 

我试图直到模式匹配，并希望在此搜索后添加一个元素。

Answer 1

open my $ifile,'<:encoding(UTF-8)', '/path/to/file.txt' || die $!; 
while (my $line = <$ifile>) { 
    chomp $line; 
    if ($line =~m/\s(\w*)_region\s/x) { 
     print $line 
    } 
} 
close $ifile;