如何使用Perl编写硬代码移除文件末尾多余换行 保留行间换行

关于chomp的认知澄清 #

chomp属于逐行匹配操作，它仅会移除单次读取内容末尾与当前记录分隔符（默认值为\n）匹配的部分，只要控制好读写逻辑，完全不会破坏行与行之间的原有换行分隔，可直接用于实现该需求。

可直接硬编码集成的实现方案 #

方案1：逐行流式处理（低内存占用，适配大文件） #

该方案不会改动除文件最后一行外的任何内容，从根源上避免破坏行间原有分隔：

my $input_path = '你的输入文件路径';
my $output_path = '你的输出文件路径';

open my $in_fh, '<', $input_path or die "读取文件失败: $!";
open my $out_fh, '>', $output_path or die "写入文件失败: $!";

my $prev_chunk = <$in_fh>;
while (my $curr_chunk = <$in_fh>) {
    # 非最后一行的内容原样写入，完整保留自带的换行符
    print $out_fh $prev_chunk;
    $prev_chunk = $curr_chunk;
}

# 仅对最后一行做去末尾换行处理
chomp $prev_chunk if defined $prev_chunk;
print $out_fh $prev_chunk;

close $in_fh;
close $out_fh;

方案2：全量读取处理（逻辑简洁，适配中小文件） #

如果文件体积不大，可一次性将全量内容读入内存，用正则精准匹配文件末尾的换行并删除，兼容末尾存在多个连续换行的场景（比如最后一行内容后附带换行形成的空行）：

my $input_path = '你的输入文件路径';
my $output_path = '你的输出文件路径';

open my $in_fh, '<', $input_path or die "读取文件失败: $!";
local $/; # 临时关闭行分隔符，一次性读取全文件内容
my $file_content = <$in_fh>;
close $in_fh;

# 精准匹配字符串绝对末尾的所有连续换行并删除
$file_content =~ s/\n+\z//;

open my $out_fh, '>', $output_path or die "写入文件失败: $!";
print $out_fh $file_content;
close $out_fh;

关键实现细节 #

• 两种方案仅会删除文件最末尾的换行，行与行之间的原有换行、制表符分隔的内容均会完整保留。
• 正则匹配时使用\z作为字符串末尾锚点，而非语义更宽泛的$，可避免因为匹配位置偏移误删文件中间的换行。

内容的提问来源于stack exchange，提问作者NEW2R