Perlハッシュリファレンスによる基本キーの削除

Question

my %myHash = (
    key1 => { 
     test1 => 1, 
     test2 => 2, 
    }, 
    key2 => { 
     test1 => 3, 
     test2 => 4, 
    }, 
); 

my $myRef = $myHash{ "key". ((~~keys %myHash) + 1) } //= { 
    test1 => 5, 
    test2 => 6, 
};  

ユーモアと私は上記が実際に実用的であると仮定します。この新しく作成されたキーを参照によってどのように削除できますか？明らかに

delete $myRef; 

は動作しません

EDIT：だから、zostayから、私は以下のいる ...

sub deleteRef { 
    my ($hash_var, $hash_ref) = @_; 

    for (keys %$hash_var) { 
     delete $hash_var->{$_} if ($hash_var->{$_} == $hash_ref); 
    } 
} 

使用法：

deleteRef(\%myHash, $myRef); 

その方法は？まだ推奨されていませんか？

Answer 1

これは%myHashに$myRefのすべての発生を削除します：あなたは、同じメモリアドレスを使用して参照をテストするために==を使用することができます

for my $key (keys %myHash) { 
    if ($myHash{$key} == $myRef) { 
     delete $myHash{$key}; 
    } 
} 

。

これは悪い考えですが、私はあなたを嫌っています。

Answer 2

それは、そのリファレンスを探してハッシュをループする必要があります。または、将来の使用のためにデータ構造にキーを追加することもできます。

Answer 3

どのように新しいハッシュキーを生成していますか？

すべてのハッシュ値を直線的に検索して特定の参照を検索し、ハッシュが提供するはずの単純な高速アクセスをバイパスするのは悪いフォームです。

それはあなただけで

delete $myHash{$myKey}; 

行うことができた後

my $myKey = "key". ((~~keys %myHash) + 1); 
$myHash{$myKey} //= { 
    test1 => 5, 
    test2 => 6, 
}; 

と同等のものを書くためにはるかに意味をなすだろうが、すべてはあなたが本当にだから私は"key". ((~~keys %myHash) + 1)