perl 中的系统命令 (sed)

Question

我在一个 perl 输入文件句柄循环中，（而 FH），我需要在该循环中对另一个文件执行搜索和删除操作。

我想对循环中的文件执行 sed 操作，并希望将 command/sed 的输出捕获到数组变量中。

类似这样的：

@flops_ = `sed '/$clkname[-2]/d' occ.txt'` 

此操作的最佳方法应该是什么？

occ.txt：

/server/home/ramneek/kings/abc_occ/flop0/Q
/server/home/ramneek/kings/abc_occ/flop1/Q
/server/home/ramneek/kings/def_occ/flop0/Q
/server/home/ramneek/kings/def_occ/flop1/Q
/server/home/ramneek/kings/xyz_occ/flop0/Q
/server/home/ramneek/kings/xyz_occ/flop1/Q

abc,def, xyz 是变量。在每个父循环中，clkname[-2] 都会得到这些变量。在每个循环中，我需要删除相应的变量匹配行。

在父 while 循环的第一次迭代中， @flops_ 应该看起来像和由\n 字符分隔的数组

/server/home/ramneek/kings/def_occ/flop0/Q
/server/home/ramneek/kings/def_occ/flop1/Q
/server/home/ramneek/kings/xyz_occ/flop0/Q
/server/home/ramneek/kings/xyz_occ/flop1/Q

在第二次迭代中 @flops_ 应该是

/server/home/ramneek/kings/abc_occ/flop0/Q
/server/home/ramneek/kings/abc_occ/flop1/Q
/server/home/ramneek/kings/xyz_occ/flop0/Q
/server/home/ramneek/kings/xyz_occ/flop1/Q

等等。 TIA。

Answer 1

最好的方法是全部在 perl 中完成；将文件的行读入一次数组，然后在循环中使用grep 过滤掉不需要的元素。

# read the lines of occ.txt into an array 
# (or use File::Slurper or Path::Tiny to do it)
open my $focc, "<", "occ.txt" or die "Couldn't open occ.txt: $!";
my @occ = <$focc>;
chomp @occ;
close $focc;

...;

while (<$fh>) {
    ...;
    # Filter out elements
    my @flops_ = grep { not /$clkname[-2]/ } @occ;
    ...;
}