在Perl中，可以使用-i选项对文件进行原地编辑来删除匹配的行。以下是一个示例：
#!/usr/bin/perluse strict;use warnings;# 指定要删除的行的匹配模式my $pattern = 'example';# 打开文件进行读写，并启用原地编辑while (<>) { if (!/$pattern/) { print; }}使用时，可以将上述代码保存为一个Perl脚本（例如delete_lines.pl），然后在命令行上运行：
perl -i delete_lines.pl input.txt其中input.txt是要进行操作的文件名。脚本将删除文件中匹配$pattern的所有行。
