[Moscow.pm] Узнать родительский ключ по ссылке

[Alexander Batyrshin]

Когда-то давно я юзала https://metacpan.org/pod/Data%3A%3AFind для поиска в сложных вложенных структурах.



> On 1 Oct 2024, at 12:34, Alessandro Gorohovski via Moscow-pm <moscow-pm на pm.org> 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
> moscow-pm на pm.org | http://moscow.pm.org

----------- следующая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20241001/9caf804c/attachment.html>