perl怎么删除匹配的行

avatar
作者
猴君
阅读量:4

在Perl中,可以使用-i选项对文件进行原地编辑来删除匹配的行。以下是一个示例:

#!/usr/bin/perl  use strict; use warnings;  # 指定要删除的行的匹配模式 my $pattern = 'example';  # 打开文件进行读写,并启用原地编辑 while (<>) {     if (!/$pattern/) {         print;     } } 

使用时,可以将上述代码保存为一个Perl脚本(例如delete_lines.pl),然后在命令行上运行:

perl -i delete_lines.pl input.txt 

其中input.txt是要进行操作的文件名。脚本将删除文件中匹配$pattern的所有行。

广告一刻

为您即时展示最新活动产品广告消息,让您随时掌握产品活动新动态!