<div>Гыыыыы оно живое .....<br /><br /><br />И так, у тебя есть значение, ты хочешь узнать под каким ключём оно живёт?<br /><br />А вот теперь представь, это значение лежит сразу в двух хэшах, под разными ключами ....</div><div> </div><div>--</div><div> </div><div>01.10.2024, 13:34, "Alessandro Gorohovski via Moscow-pm" <moscow-pm@pm.org>:</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:#ffd966">  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">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org/" rel="noopener noreferrer">http://moscow.pm.org</a></blockquote>