オブジェクトからハッシュにアクセスする方法

Question

私はちょうどいくつかのゲッターとセッターメソッドを持っている小さなクラスを書いています。これらのプロパティの1つはハッシュです。

sub getMyData 
{ 
    my $objekt = shift; 
    return $objekt->{MYDATA}; 
} 

sub setMyData 
{ 
    my $objekt = shift; 
    my %myData= shift; 

    $objekt->{MYDATA} = \%myData; 
} 

私は私のクラスにアクセスする別のskriptでこのように値を設定する場合：私はちょうどundefを取得

my $data = $objekt->getMyData; 
print $data{'apple'}; 

：

my %test; 
$test{'apple'}='red'; 

$objekt = MYNAMESPACE::MYCLASS->new; 
$objekt->setMyData(%test); 

私は私が経由して簡単にこの値にアクセスすることができます思いました値。ダンパから

出力：

誰かがここで間違って何を教えてもらえますし、どのように私はgetMyDataにアクセスし、値が「赤」を印刷することができますか？

Answer 1

迂回矢印がありません。あなたはハッシュリファレンス（\%myData）を入れているので、あなたはまた参照を得る。

my $data = $objekt->getMyData; 
print $data->{'apple'}; 
#  ^
#   here 

また、リストを参照者ではなくセッターに渡すので、割り当てを変更する必要があります。 shiftはスカラー（単一）値ですが、%testはリストになります（多くの値）。

sub setMyData 
{ 
    my $objekt = shift; 
    my %myData = @_; 

    $objekt->{MYDATA} = \%myData; 
} 

ただし、コードにはもう少し問題があります。

Answer 2

shiftは、最初のの要素を削除して返します。サブルーチンの内部では、ベアシフトは@_で動作し、そのサブルーチンに渡されたすべての引数のコピーが含まれています。

本当にここで起こっていることsetMyDataは、このデータが渡されていることである。

setMyData($objekt, 'apple', 'red'); 

1. setMyDataの最初のshiftが$objekt
@_から二 shift setMyDataで削除し「りんご」を削除しますが、このシフトの結果をハッシュに割り当てるので、次のようなハッシュが作成されます。 'apple' => undef
3. あなたはこのハッシュへのリファレンスを取ると、あなたが本当に欲しい$objekt

のMYDATAキーに保管することは、あなたのハッシュに@_の残りの部分を割り当てることです：

sub setMyData { 
    my $objekt = shift; 
    my %myData = @_; 
    # my ($objekt, %myData) = @_; (alternative) 

    $objekt->{MYDATA} = \%myData; 
} 

別のオプションは、代わりにありますsetMyDataにハッシュリファレンスを送信、どのはshiftと動作します：あなたは、R「、 'りんご'（ `送っている

sub setMyData { 
    my $objekt = shift; 
    my $myData_ref = shift 

    $objekt->{MYDATA} = $myData_ref; 
} 
$objekt->setMyData(\%test);