最简单的打开文本文件的方式,并将其读入Perl中的数组

发布时间：2020-12-15 21:20:37 所属栏目：大数据来源：网络整理

导读：为每个脚本添加一个标准的Perl文件打开功能我有点恼人： sub openfile{ (my $filename) = @_; open FILE,"$filename" or die $!; my @lines = FILE; return @lines;} 我可以创建一个Perl模块来做到这一点，但是这样很简单，我肯定应该有一个。我试图找到一

为每个脚本添加一个标准的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:somefolderstructurefile.txt");

解决方法

你有几个选择，经典做法：

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。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!