将文件读入Perl中的变量

Question

可能重复:
在Perl中将文件粘贴到字符串中的最佳方法是什么？

这段代码是将文件内容读入Perl变量的好方法吗？它有效,但我很好奇我是否应该使用更好的练习.

open INPUT, "input.txt";
undef $/;
$content = <INPUT>;
close INPUT;
$/ = "\n";

Answer 1

我认为通常的做法是这样的:

    my $content;
    open(my $fh, '<', $filename) or die "cannot open file $filename";
    {
        local $/;
        $content = <$fh>;
    }
    close($fh);

使用3参数open更安全.使用文件句柄作为变量是如何在现代Perl中使用它并使用local $/恢复$/块结束的初始值而不是硬编码\n.

Answer 2

use File::Slurp;
my $content = read_file( 'input.txt' ) ;