Жаль, что не совсем по subject, но спасибо за "пищу для размышлений".
вт, 1 окт. 2024 г. в 23:15, Alexander Batyrshin <[email protected]>: > Когда-то давно я юзала https://metacpan.org/pod/Data%3A%3AFind для поиска > в сложных вложенных структурах. > > > > On 1 Oct 2024, at 12:34, Alessandro Gorohovski via Moscow-pm < > [email protected]> wrote: > > Уважаемое сообщество, приветствую! > > Подскажите, может кто-нибудб знает/сталкивался: > существует ли способ узнать родительский ключ хеша по ссылке? > > # Например, есть хеш > my %h = ( a => { b=> 1}, aa=> {bb=>2, }, ); > > # вызов функции, где необходимо узнать родительский ключ > # например, 'aa' > my $k = &where_key( \%{ $h{aa} } ); > > exit; > > sub where_key { > my $sh = shift; > > my $k = ??? if ref( $sh ) eq 'HASH'; > > return $k; > } > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > > >
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
