行が一致する場合、perlは行を削除します。

2年 ago
芽依, 雨夜
1 minute

Perlでは、-iオプションを使用することでファイルを上書き編集して一致する行を削除することができます。以下に例を示します。

#!/usr/bin/perl

use strict;
use warnings;

# 指定要删除的行的匹配模式
my $pattern = 'example';

# 打开文件进行读写，并启用原地编辑
while (<>) {
    if (!/$pattern/) {
        print;
    }
}

使用するときは、上記のコードを1つのPerlスクリプト（例: delete_lines.pl）として保存してから、コマンドライン上で実行できます。

perl -i delete_lines.pl input.txt

input.txtは操作対象のファイル名です。このスクリプトはファイル内から$patternと一致するすべての行を削除します。

bannerAds