在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的所有行。
