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

Question

Я взглянул на источник Slurp, и я хотел бы понять, как slurp() Работа:

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

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

Answer 1

Увидеть ARGV а также $/ в perldoc perlvar.

Смотрите также Path:: Class: File:: slurp.

Answer 2

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

Answer 3

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

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

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