阅读量: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
的所有行。