使用perl拆分平面文本中的文件

#!/usr/bin/perl

use strict;
use warnings;

# 打开输入文件
open my $input_fh, '<', 'input.txt' or die "无法打开输入文件: $!";

# 定义输出文件的基本名称
my $output_base = 'output';

# 定义文件计数器
my $file_count = 1;

# 逐行读取输入文件
while (my $line = <$input_fh>) {
    chomp $line;

    # 判断是否遇到文件分隔符
    if ($line =~ /^---$/) {
        # 关闭当前输出文件句柄
        close $output_fh if defined $output_fh;

        # 构造新的输出文件名
        my $output_file = $output_base . $file_count . '.txt';

        # 打开新的输出文件
        open $output_fh, '>', $output_file or die "无法打开输出文件: $!";

        # 增加文件计数器
        $file_count++;
    } else {
        # 将当前行写入输出文件
        print $output_fh "$line\n" if defined $output_fh;
    }
}

# 关闭输入文件句柄
close $input_fh;

# 关闭最后一个输出文件句柄
close $output_fh if defined $output_fh;