perl - Perl 脚本+删除除以“仅在”开头的行之外的所有行

Question

我有一个文件有很多行。其中一些以“仅在”开头。所以我只想保留以“Only in”开头的行并删除其余的行。有人可以告诉我我可以使用什么正则表达式命令。

类似“ %s/!(Only in)/rm -rf that line” 抱歉在这里混淆了verilog、unix和perl。有人可以帮助我吗

Answer 1

perl -ne 'print if /^Only in /' file

另请参阅grep。

Answer 2

perl -i -ne '/^Only in/ and print' file

在脚本中：

use strict; use warnings;

$INPLACE_EDIT = 1;

while (<>) {
    /^Only in/ and print;
}

这两种解决方案都替换了内联，而无需您自己创建临时文件。