<div>Нет. Это был наводящий вопрос.<br />К ключу какого хэша ты хочешь получить доступ?<br />Что нужно сделать, чтобы явно указать хэш, ключ которого тебя интересует?<br />Правильно. вообщем грепом найдёшь.</div><div> </div><div>01.10.2024, 14:49, "Alessandro Gorohovski" <an.gorohovski@gmail.com>:</div><blockquote><div><div style="font-size:large">Хорошо, пусть живет под несколькими ключами.</div><div style="font-size:large">А как получить к ним доступ ?</div></div> <div><div>вт, 1 окт. 2024 г. в 13:08, Ivan Serezhkin <<a href="mailto:ivan@serezhkin.com" rel="noopener noreferrer">ivan@serezhkin.com</a>>:</div><blockquote style="border-left-color:rgb( 204 , 204 , 204 );border-left-style:solid;border-left-width:1px;margin:0px 0px 0px 0.8ex;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" rel="noopener noreferrer" 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:#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" 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></blockquote>