<div dir="ltr"><div class="gmail_default" style="font-size:large">Уважаемое сообщество, приветствую!</div><div class="gmail_default" style="font-size:large"><br></div><div class="gmail_default" style="font-size:large">Подскажите, может кто-нибудб знает/сталкивался:</div><div class="gmail_default" style="font-size:large">существует ли способ узнать родительский ключ хеша по ссылке?<br></div><div class="gmail_default" style="font-size:large"><br></div><div class="gmail_default" style="font-size:large"># Например, есть хеш</div><div class="gmail_default" style="font-size:large">my %h = ( a => { b=> 1}, aa=> {bb=>2, }, );</div><div class="gmail_default" style="font-size:large"><br></div><div class="gmail_default" style="font-size:large"><div class="gmail_default"># вызов функции, где необходимо узнать родительский ключ</div><div class="gmail_default"># например, 'aa'</div></div><div class="gmail_default" style="font-size:large">my $k = &where_key( \%{ $h{aa} } );</div><div class="gmail_default" style="font-size:large"><br></div><div class="gmail_default" style="font-size:large">exit;</div><div class="gmail_default" style="font-size:large"><br></div><div class="gmail_default" style="font-size:large">sub where_key {<br></div><div class="gmail_default" style="font-size:large">  my $sh = shift;</div><div class="gmail_default" style="font-size:large"><br></div><div class="gmail_default" style="font-size:large"><span style="background-color:rgb(255,217,102)">  my $k =  ??? if ref( $sh ) eq 'HASH';</span></div><div class="gmail_default" style="font-size:large"><br></div><div class="gmail_default" style="font-size:large">  return $k;<br></div><div class="gmail_default" style="font-size:large">}</div></div>