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;
明らかにうまくいかない
編集: だから、zostayから私は次のものを持っています...
sub deleteRef {
my ( $hash_var, $hash_ref ) = @_;
for ( keys %$hash_var ) {
delete $hash_var->{$_} if ($hash_var->{$_} == $hash_ref);
}
}
使用法:
deleteRef(\%myHash, $myRef);
どのようだ?まだお勧めしませんか?