perl - sub _init in Perl の説明

Question

このサブルーチンが Perl で何をするのか疑問に思っていました。私は一般的な考えを持っていると信じていますが、いくつかの構文について疑問に思っています。

sub _init 
{
  my $self = shift;
  if (@_) {
    my %extra = @_;
    @$self{keys %extra} = values %extra;
  }
}

基本的に、変数 $self によって参照される名前のないハッシュに「余分な」キーと値のペアを追加します。また、これについて100％確信があるわけではありませんが、実際にはサブルーチンを呼び出しmy $self = shiftた変数を参照していると思います。$self_init()

私の具体的な質問は次のとおりです。

score 4 · Accepted Answer

$self実際にサブルーチンを呼び出した変数を参照しています_init()か?

変数はサブルーチンを呼び出しません。

->invocant ( inの左側にあるもの->_init()) は、最初の引数としてメソッドに渡され、これをに配置し$selfます。(はin subsshift()の略です。)shift(@_)

@$書くときの構文の意味は何ですか@$self{keys %extra} = values %extra;

@hash{LIST}はハッシュスライスです。

@{ EXPR }{LIST}スライスへのハッシュが参照によって指定されるハッシュスライスです。EXPRが単純なスカラールックアップの場合、カーリーはオプションなので、のよう@{ $hash_ref }{LIST}に記述できます@$hash_ref{LIST}。

%$selfこのメソッドは、呼び出し元として使用されるハッシュベースのオブジェクトに引数を追加します。次のように書くこともできます。

%$self = ( %$self, @_ );

2 に答える 2