Perl逐行读取文件问题：仅读取第一行如何解决？

嘿，我帮你捋捋代码里的问题——你遇到的“只能读取第一行”其实是代码里的几个小错误导致的输出异常，不是真的没读取后续行。咱们一步步拆解：

你的代码里的核心问题： #

• 变量未正确赋值：Perl里<file_E>每次读取的行默认存在$_变量里，但你用正则/([^\n]*)/捕获的内容存在$1里，可你打印的$line1根本没被赋值！第一次循环时$1有第一行的内容，之后循环$line1始终是空的，所以看起来只输出了第一行。
• 正则表达式写法错误：你写的[^ ]是无效语法，应该是[^\n]来匹配非换行符，但其实这步完全多余——<file_E>读取的每行本身就包含了该行的完整内容，没必要额外用正则捕获。
• 文件打开方式不安全：旧的双参数open存在注入风险，而且没加错误处理，如果文件打不开你都没法及时发现原因。

修正后的代码 #

直接用最简洁安全的写法就能实现逐行读取：

# 三参数open更安全，加上错误处理避免静默失败
open(my $fh, '<', $file_E) or die "无法打开文件 $file_E: $!";

# 逐行读取并赋值给$line，循环处理每一行
while (my $line = <$fh>) {
    # 直接打印读取的内容
    print $line;
}

close($fh);

如果需要去掉每行末尾的换行符，可以加个chomp处理：

open(my $fh, '<', $file_E) or die "无法打开文件 $file_E: $!";

while (my $line = <$fh>) {
    chomp $line; # 移除行尾的换行符
    print "$line\n"; # 手动添加换行符，或者直接打印处理后的内容
}

close($fh);

这样修改后，就能正常读取并输出文件的所有行啦。

内容的提问来源于stack exchange，提问作者Ernesta Petraitytė