溫馨提示×

perl怎么刪除匹配的行

小億
229
2023-10-20 20:18:16
欄目: 編程語言

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

0 踩