打开文件时出现Perl语法错误

Question

我编写了一个子例程，当我运行我的程序时，我收到错误消息：＆＃34;第74行的语法错误，接近＆＃39;打开＆＃39; ＆＃34; 错误是因为我使用了我来声明内容数组吗？

my @content = do{
        local $/ = \$width;
        <$fh>;
    }



    open(OUT, ">", $outfile) or die "cannot open \n"; #this is line 74
    binmode(OUT);
    foreach ( @content ){
        print OUT $_;
    }

    close(OUT);

Answer 1

在此之前，您已经排除了分号

my @content = do{
    local $/ = \$width;
    <$fh>;
}; # semicolon