Perldoc perlfaq5中文件Slurping示例语法错误，求解决方法

针对你遇到的两个错误，逐个解决： #

1. 第13行的my重声明错误 #

这个错误是因为同一个作用域内重复用my声明了同一个变量。比如你可能在代码里写了两次my $content或者my $fh。

解决方法：

• 只在第一次使用变量时用my声明，后续赋值时直接用变量名，去掉重复的my。
• 示例：把my $content = <$fh>改成$content = <$fh>。

2. 第11行near "open"的语法错误 #

常见原因及修复：

• 使用了不安全的双参数open：旧写法open FH, $filename容易触发语法或安全问题，换成推荐的三参数open格式：

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

• 前面代码有语法残留：检查open语句前的代码，有没有漏掉分号、引号不闭合、括号不匹配的情况，这些会导致Perl解析open时出错。
• or die语句格式错误：确保open后面的错误处理语句正确，比如不要漏掉or，die的字符串要正确闭合引号。

适合v5.30.0的正确Slurping代码示例 #

方法1：本地化输入记录分隔符（原生写法，无需额外模块） #

my $filename = '你的文件名.txt';

# 打开文件（三参数open，安全写法）
open my $fh, '<', $filename or die "打开失败: $!";

# 本地化$/，让<>一次性读取整个文件
local $/;
my $content = <$fh>;

close $fh;

# 后续可以使用$content处理文件内容

方法2：使用File::Slurp模块（更简洁） #

先通过cpanm File::Slurp安装模块，然后：

use File::Slurp;

my $content = read_file('你的文件名.txt');

方法3：用do块封装（紧凑写法） #

my $content = do {
    open my $fh, '<', '你的文件名.txt' or die $!;
    local $/;
    <$fh>;
};

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