<div dir="ltr"><div class="gmail_default" style="font-size:large">Хорошо, пусть живет под несколькими ключами.</div><div class="gmail_default" style="font-size:large">А как получить к ним доступ ?</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">вт, 1 окт. 2024 г. в 13:08, Ivan Serezhkin <<a href="mailto:ivan@serezhkin.com">ivan@serezhkin.com</a>>:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div>Гыыыыы оно живое .....<br><br><br>И так, у тебя есть значение, ты хочешь узнать под каким ключём оно живёт?<br><br>А вот теперь представь, это значение лежит сразу в двух хэшах, под разными ключами ....</div><div> </div><div>--</div><div> </div><div>01.10.2024, 13:34, "Alessandro Gorohovski via Moscow-pm" <<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a>>:</div><blockquote><div><div style="font-size:large">Уважаемое сообщество, приветствую!</div><div style="font-size:large"> </div><div style="font-size:large">Подскажите, может кто-нибудб знает/сталкивался:</div><div style="font-size:large">существует ли способ узнать родительский ключ хеша по ссылке?</div><div style="font-size:large"> </div><div style="font-size:large"># Например, есть хеш</div><div style="font-size:large">my %h = ( a => { b=> 1}, aa=> {bb=>2, }, );</div><div style="font-size:large"> </div><div style="font-size:large"><div># вызов функции, где необходимо узнать родительский ключ</div><div># например, 'aa'</div></div><div style="font-size:large">my $k = &where_key( \%{ $h{aa} } );</div><div style="font-size:large"> </div><div style="font-size:large">exit;</div><div style="font-size:large"> </div><div style="font-size:large">sub where_key {</div><div style="font-size:large">  my $sh = shift;</div><div style="font-size:large"> </div><div style="font-size:large"><span style="background-color:rgb(255,217,102)">  my $k =  ??? if ref( $sh ) eq 'HASH';</span></div><div style="font-size:large"> </div><div style="font-size:large">  return $k;</div><div style="font-size:large">}</div></div>,--<br>Moscow.pm mailing list<br><a href="mailto:moscow-pm@pm.org" rel="noopener noreferrer" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/" rel="noopener noreferrer" target="_blank">http://moscow.pm.org</a></blockquote></blockquote></div>