在Perl中,如何将几个文件的内容“slurp”到一个字符串中？

发布时间：2020-12-15 22:00:39 所属栏目：大数据来源：网络整理

导读：Perl有很多方便的习惯用语,包括：文件读取运算符HANDLE如果使用没有文件句柄,将无缝打开和读取@ARGV中的所有文件,一行一行： while () { print $.,$_; } 通过(本地)重置输入记录分隔符$/,我可以一次“slurp”一个整个文件： local $/; $content = HANDLE;

Perl有很多方便的习惯用语,包括：

>文件读取运算符&HANDLE>如果使用没有文件句柄,将无缝打开和读取@ARGV中的所有文件,一行一行：

while (<>) { print $.,$_;  }

>通过(本地)重置输入记录分隔符$/,我可以一次“slurp”一个整个文件：

local $/; $content = <HANDLE>;

但是,这两个成语不像我预期的一样工作不一样：在我重置$/之后,使用<>在文件末尾停止：以下给出了第一个文件的内容.

local $/; $content = <>;

现在我相信这个行为必须是设计的,但我并不在乎.将所有文件的所有内容提取到字符串中,简明扼要的Perl习语是什么？ (This相关的问题提到了一种将文件列表分解成单独的字符串的方式,这是一个开始…但是如果您还需要以后加入字符串,则不会非常优雅).

解决方法

你意识到你只是隐藏多个公开电话,对吧？没有任何神奇的方法来读取多个文件,而不是逐个打开它们

如您所见,如果$/设置为undef,Perl将在每个文件的末尾停止读取

处理<>的内部机制从@ARGV中删除每个文件名,因为它是打开的,所以我建议你只需使用一个while循环读取<>直到@ARGV为空

看起来就像这样

use strict;
use warnings 'all';

my $data;
{
    local $/;
    $data .= <> while @ARGV;
}

（编辑：李大同）

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