Perl有很多方便的习惯用语,包括:
>文件读取运算符&HANDLE>如果使用没有文件句柄,将无缝打开和读取@ARGV中的所有文件,一行一行:
while (<>) { print $.,$_; }
>通过(本地)重置输入记录分隔符$/,我可以一次“slurp”一个整个文件:
local $/; $content = <HANDLE>;
但是,这两个成语不像我预期的一样工作不一样:在我重置$/之后,使用<>在文件末尾停止:以下给出了第一个文件的内容.
local $/; $content = <>;
现在我相信这个行为必须是设计的,但我并不在乎.将所有文件的所有内容提取到字符串中,简明扼要的Perl习语是什么? (This相关的问题提到了一种将文件列表分解成单独的字符串的方式,这是一个开始…但是如果您还需要以后加入字符串,则不会非常优雅).