[Moscow.pm] Узнать родительский ключ по ссылке

[Alessandro Gorohovski]

Уважаемое сообщество, приветствую!

Подскажите, может кто-нибудб знает/сталкивался:
существует ли способ узнать родительский ключ хеша по ссылке?

# Например, есть хеш
my %h = ( a => { b=> 1}, aa=> {bb=>2, }, );

# вызов функции, где необходимо узнать родительский ключ
# например, 'aa'
my $k = &where_key( \%{ $h{aa} } );

exit;

sub where_key {
  my $sh = shift;

  my $k =  ??? if ref( $sh ) eq 'HASH';

  return $k;
}
----------- следующая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20241001/dc9dc061/attachment.html>