perl、コンストラクタの書き方

Question

perlの基本的なコンストラクタの書き方は書籍で以下と見ました。
ハッシュのリファレンスにクラス名を関連付けの部分で別の書き方があったのですが、どういう意味なのか解説もらえると助かります。

sub new {
    my ($class, $fname, $lname) = @_;
    my $self = { FirstName => $fname, LastName => $lname };
    # 関連付け
    bless $self, $class;
    return $self;
}

# blessの別の書き方
my $self = bless({}, shift);

Comments

[yoorwm]

どの辺が分からないのでしょうか？

[yookoko]

コメントありがとうございます。「bless $self, $class;」でクラスにselfを関連付け？してるのはわかります。違う書き方では、1引数にハッシュリファレンスはわかるのですが、なぜ２引数にshiftが来てshiftは何を表しているのかがわかりません。

Answer 1

たぶん、コンストラクタの作成の「2. 一番簡単なコンストラクタの実装」を見ると分かってくるのではないかと思います。

shiftは、配列の最初の変数を取り出す操作なので、デフォルト変数の1番目をblessの2番目の引数に渡している形ですね。

というか、

my ($class, $fname, $lname) = @_;

で、デフォルト変数の一番目、というのは分かりますね。

Comments

[yookoko]

理解できました。解説とリンクありがとうございます。