<div dir="ltr">Это?<br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">ср, 2 окт. 2024 г. в 09:22, Alessandro Gorohovski via Moscow-pm <<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</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 dir="ltr"><div class="gmail_default" style="font-size:large">Жаль, что не совсем по subject,<br>но спасибо за "пищу для размышлений".</div><div class="gmail_default" style="font-size:large"><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">вт, 1 окт. 2024 г. в 23:15, Alexander Batyrshin <<a href="mailto:0x62ash@gmail.com" target="_blank">0x62ash@gmail.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>Когда-то давно я юзала <a href="https://metacpan.org/pod/Data%3A%3AFind" target="_blank">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 <<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a>> wrote:</div><br><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><a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br></div></blockquote></div><br></div></div></blockquote></div>
-- <br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" rel="noreferrer" target="_blank">http://moscow.pm.org</a><br>
</blockquote></div>