perl - Perl: sub 宣言の arg リスト内の ;\$ の意味は何ですか?

Question

sedこれは、特定のコマンドを実行する perl スクリプトを作成するプログラムである s2p によって生成されたプログラムの一部です。

# getsARGV: Read another input line into argument (default: $_).
#           Move on to next input file, and reset EOF flag $isEOF.
sub getsARGV(;\$){
    my $argref = @_ ? shift() : \$_;
    while( $isEOF || ! defined( $$argref = <ARG> ) ){
        close( ARG );
        return 0 unless @ARGV;
        my $file = shift( @ARGV );
        open( ARG, "<$file" )
        || die( "$0: can't open $file for reading ($!)\n" );
        $isEOF = 0;
    }
    1;
}

perlsub で、このサブ署名を説明するものを見つけることができませんでした。

コードも非常にうまく機能します。

Answer 1

試作品です。その特定のプロトタイプは、パーサーに使用法のみを受け入れるように強制します

getsARGV()

と

getsARGV($SCALAR)

そして、それらを次のようにコンパイルします

&getsARGV()

と

&getsARGV(\$SCALAR)