perl - Perl の Slurp モジュールはどのように機能しますか?

Question

Slurpのソースを見て、どのように機能するかを理解したいと思いますslurp()。

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

ファイルはどこで開いていますか？

score 6 · Accepted Answer

perldocperlvarを参照ARGVし$/てください。

Path :: Class：File::slurpも参照してください。

score 5 · Accepted Answer

5

ARGVはハンドルであり、ファイルは暗黙的に開かれています。

于 2010-10-25T11:04:57.273 に答える

score 1 · Accepted Answer

このスニペットは、ファイル名を@ARGV. ファイルハンドルはARGV、で見えるファイルを暗黙的に開きます@ARGV。<>これは、diamond オペレータのデフォルトのファイルハンドルであるため、diamond オペレータには表示されないのと同じファイルハンドルです。

これは、以下と同じ Perl イディオムです。

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

3 に答える 3