Как работает модуль Perl's Slurp?

Question

Я посмотрел на источник Slurp , и мне хотелось бы понять, как работает slurp():

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

Где файл даже открыт?

Answer 1

См. ARGV и $/ in perldoc perlvar .

См. Также Путь :: Класс: Файл :: slurp .

Answer 2

ARGV - дескриптор, файл был открыт неявно.

Answer 3

Этот фрагмент помещает имя файла в @ARGV.Файловый дескриптор ARGV неявно открывает файлы, которые он видит в @ARGV.Это тот же дескриптор файла, который мы не видим в операторе diamond <>, поскольку это дескриптор файла по умолчанию для этого оператора.

Это та же идиома Perl, что и:

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