Perl的Slurp模块是如何工作的？

Question

我看过Slurp的源代码，我很想了解slurp()是如何工作的：

sub slurp { 
    local( $/, @ARGV ) = ( wantarray ? $/ : undef, @_ ); 
    return <ARGV>;
}

文件是在哪里打开的？

Answer 1

请参见perldoc perlvar中的ARGV和$/。

另请参见Path::Class:File::slurp。

Answer 2

ARGV是一个句柄，文件已隐式打开。

Answer 3

这段代码将文件名放在@ARGV中。ARGV文件句柄隐式打开它在@ARGV中看到的文件。这与我们在菱形操作符<>中看不到的文件句柄相同，因为它是该操作符的默认文件句柄。

这是与以下相同的Perl习惯用法：

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