如何用Perl脚本删除文件中Zebra到Dog的指定行段？

可以通过状态标记的方式实现这个需求，以下是两种常用方案：

命令行一行式快速处理 #

直接在终端执行以下命令，将处理结果输出到新文件：

perl -ne 'BEGIN{$skip=0} if (!$skip) { /^Zebra$/ ? $skip=1 : print } else { $skip=0 if /^Dog$/ }' input.txt > output.txt

• 逻辑说明：初始化$skip标记为0（默认输出行），当匹配到整行是Zebra时开启跳过模式；在跳过模式下，匹配到整行是Dog时关闭跳过模式，期间所有行都不输出。
• 用^和$确保匹配整行，避免误删包含Zebra或Dog子串的行。

可复用的Perl脚本 #

创建脚本文件remove_zebra_dog.pl：

#!/usr/bin/perl
use strict;
use warnings;

my $skip_mode = 0;

while (my $line = <>) {
    if (!$skip_mode) {
        if ($line =~ /^Zebra$/) {
            $skip_mode = 1;
        } else {
            print $line;
        }
    } else {
        $skip_mode = 0 if $line =~ /^Dog$/;
        # 跳过当前行，不输出
    }
}

使用方式 #

# 赋予执行权限（可选）
chmod +x remove_zebra_dog.pl
# 处理文件并输出结果
./remove_zebra_dog.pl input.txt > output.txt

• use strict和use warnings开启严格模式，避免潜在的语法或逻辑错误。
• <>操作符支持读取命令行指定的文件，或从标准输入读取内容，灵活性强。
• 如果需要忽略大小写匹配，可将正则改为/^zebra$/i和/^dog$/i。

内容的提问来源于stack exchange，提问作者Gokul.Mohan