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

前端之家收集整理的这篇文章主要介绍了在Perl中,如何将几个文件的内容“slurp”到一个字符串中?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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;
}
原文链接:https://www.f2er.com/Perl/171651.html

猜你在找的Perl相关文章