perl - 如何摆脱 Perl 中的命令式文件打开？

Question

open( my $handle, '<', 'file.dat' ) or die $!;
my @data = map { do_things($_) } <$handle>;
close $handle;

上面的命令式open和close在其他不错的代码中显得很碍眼。有没有办法以更干净的方式写这个？我可以编写自己的 read_file 子例程，但应该已经有类似的东西了。

sub read_file {
    open( my $handle, '<', $_[0] ) or croak $!;
    return <$handle>;
}
my @data = map { do_things($_) } read_file('file.dat');

效率并不重要，但解决方案应该是跨平台的。

Answer 1

免处理，使用File::Slurp:

use File::Slurp;
my @data = map {...} read_file($filename);