perl - 在Perl中花哨的文件

Question

我一直在研究有效的方法来在Perl中读取文件，并遇到了这种非常有趣的方法:

my $text = do { local (@ARGV, $/) = $file; <> };

我的问题是:这到底是如何工作的？通常，在为文件添加内容时，您需要设置 $/ = undef，但是我不知道这是如何做到的。事实证明，这小段代码非常难缠。

什么是简化的分解和解释？

现在，我知道它是如何工作的，让我们开始真正的幻想吧!

并不是说此代码有任何实际用途。弄清楚看起来很有趣。这是一种可以同时处理多个文件的方式!!!

my @texts = map { local (@ARGV, $/) = $_; <> } @files;

Answer 1

local (@ARGV, $/) = $file;

是相同的

local @ARGV = ( $file );
local $/    = undef;

然后 <>从 @ARGV中提到的文件中读取，即从 $file中读取。