perl - 使用 Perl 打开文本文件并将其读入数组的最简单方法

Question

向我拥有的每个脚本添加一个标准的 Perl 文件打开函数有点烦人:

sub openfile{
    (my $filename) = @_;
    open FILE,"$filename" or die $!;
    my @lines = <FILE>;
    return @lines;
}

我可以创建一个 Perl 模块来执行此操作，但这太简单了，我相信应该已经有一个。

我正在尝试找到一种将文本文件读入数组的方法，但我似乎找不到可以完成这个简单任务的 Perl 模块......也许我看起来太努力了，它已经附带了标准 5.10 安装。

理想情况下，我相信它看起来像这样:

my @lines = Module::File::Read("c:\some\folder\structure\file.txt");

Answer 1

你有几个选择，经典的 do 方法:

my @array = do {
    open my $fh, "<", $filename
        or die "could not open $filename: $!";
    <$fh>;
};

IO::All方法:

use IO::All;

my @array = io($filename)->slurp;

File::Slurp方法:

use File::Slurp;

my @array = read_file($filename);

毕竟可能还有更多 TIMTOWTDI .