<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body style="overflow-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;">Когда-то давно я юзала <a href="https://metacpan.org/pod/Data%3A%3AFind">https://metacpan.org/pod/Data%3A%3AFind</a> для поиска в сложных вложенных структурах.<div><br></div><div><br></div><div><div><br><blockquote type="cite"><div>On 1 Oct 2024, at 12:34, Alessandro Gorohovski via Moscow-pm <moscow-pm@pm.org> wrote:</div><br class="Apple-interchange-newline"><div><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>
-- <br>Moscow.pm mailing list<br>moscow-pm@pm.org | http://moscow.pm.org<br></div></blockquote></div><br></div></body></html>