用 Perl 读取精美的文件

我正在寻找在 Perl 中读取文件的有效方法，并发现了这一非常有趣的行：

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

我的问题是：这到底是如何运作的？通常在读取您设置的文件时$/ = undef，但我不明白这是如何做到的。事实证明，这段小代码很难理解。

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

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

并不是说这段代码有任何实际用途；弄清楚它很有趣，看起来也很酷。这是一个可以同时读取多个文件的单行代码！！！

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

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

是相同的

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

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