Wie funktioniert die Arbeit Slurp Moduls Perl?

Question

Ich hatte einen Blick auf die Quelle der Slurp und ich würde zu verstehen, lieben, wie slurp() tut Arbeit:

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

Wo ist die Datei noch geöffnet?

Answer 1

Siehe ARGV und $/ in perldoc perlvar .

Siehe auch Pfad :: Klasse: File :: schlürfen .

Answer 2

ARGV ist ein Griff, wird die Datei implizit geöffnet.

Answer 3

Dieser Code-Schnipsel legt den Dateinamen in @ARGV. Die ARGV Dateihandle öffnet implizit die Dateien, die es in @ARGV sieht. Dies ist die gleiche Dateihandle, dass wir nicht sehen, in dem <> Diamanten Betreiber, da es die Standard-Dateihandle für diesen Operator ist.

Dies ist das gleiche Perl Idiom wie:

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