Perl脚本开发需求：在指定字符串后添加带制表符的新行

需求说明 #

编写Perl脚本，在文本文件中匹配到整行是apple的行后，在其下方插入一行带制表符的testing文本。

示例输入 #

apple
	original text1
orange
	original text2

预期输出 #

apple
	testing
	original text1
orange
	original text2

现有代码的问题 #

你提供的代码存在以下关键问题：

• 未定义变量$apple，导致正则表达式/^$apple$/无法正常匹配目标行
• 使用chop处理行尾错误：chop会移除字符串最后一个字符（无论是否是换行符），应该用chomp仅移除换行符
• 采用+<模式直接读写同一文件：这种模式下文件指针位置容易混乱，写入内容可能覆盖原有数据或写入到错误位置
• 插入的文本未添加制表符，且换行符的写法不规范

修正后的解决方案 #

推荐两种安全的处理方式，根据文件大小选择：

方法1：小文件——读入内存后修改写入 #

适合文件较小的场景，将整个文件读入内存修改后重新写入：

use strict;
use warnings;

my $config_file = "filename.txt";
my $target_line = 'apple';
my $insert_content = "\ttesting\n"; # \t代表制表符，\n代表换行

# 读取原文件内容
open my $in_fh, '<', $config_file or die "无法打开文件 $config_file: $!";
my @all_lines = <$in_fh>;
close $in_fh;

# 修改内容并写入原文件
open my $out_fh, '>', $config_file or die "无法写入文件 $config_file: $!";
foreach my $line (@all_lines) {
    # 先输出原行
    print $out_fh $line;
    # 匹配目标行（去除换行符后精确比较）
    if (chomp($line) eq $target_line) {
        print $out_fh $insert_content;
    }
}
close $out_fh;

方法2：大文件——使用临时文件逐行处理 #

适合大文件，避免占用过多内存：

use strict;
use warnings;
use File::Temp qw(tempfile);
use File::Copy qw(move);

my $config_file = "filename.txt";
my $target_line = 'apple';
my $insert_content = "\ttesting\n";

# 创建临时文件
my ($temp_fh, $temp_path) = tempfile();

# 逐行处理原文件，写入临时文件
open my $in_fh, '<', $config_file or die "无法打开文件 $config_file: $!";
while (my $line = <$in_fh>) {
    print $temp_fh $line;
    if (chomp($line) eq $target_line) {
        print $temp_fh $insert_content;
    }
}
close $in_fh;
close $temp_fh;

# 用临时文件替换原文件
move($temp_path, $config_file) or die "无法替换原文件: $!";

关键说明 #

• 始终启用use strict和use warnings：强制代码规范，提前发现未定义变量、语法错误等问题
• 使用词法文件句柄（my $fh）：比裸字句柄（如原代码的CONFIG）更安全，避免命名冲突
• 精确匹配目标行：用chomp($line) eq $target_line替代正则，更直观且性能更好（如果不需要模糊匹配）
• 安全处理文件写入：避免直接读写同一文件，防止数据损坏
• 制表符用\t表示：确保插入的文本带有正确的制表符格式

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