使用perl，我们如何在两个模式之间打印行，跳过第一个匹配？

#!/usr/bin/perl

use strict;
use warnings;

my $start_pattern = 'pattern1';  # 第一个模式
my $end_pattern = 'pattern2';    # 第二个模式
my $skip_first_match = 1;        # 是否跳过第一个匹配行，默认为1，表示跳过

my $printing = 0;  # 是否正在打印行的标志

while (my $line = <>) {
    if ($line =~ /$start_pattern/) {
        $printing = $skip_first_match ? 0 : 1;  # 根据跳过第一个匹配的设置来确定是否开始打印行
    }

    if ($printing) {
        print $line;
    }

    if ($line =~ /$end_pattern/) {
        $printing = 0;  # 打印到第二个模式后停止打印
    }
}