Perl脚本+删除除“仅在”之外的所有行

Question

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

像“％s /！（仅限于）/ rm -rf那样的行”很抱歉这里混合了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;
}

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