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

[Steffen Winkler]

Hello,
What I have done in the while loop, I check the stringified reference of 
that hash reference. If that is equal, the the same hash reference is 
there and I return the output. If there are more then one equal hash 
references you have to put the keys into an array and do not return.
Steffen

auto translated
Здравствуйте,
В цикле while я проверяю строковую ссылку на эту хэш-ссылку. Если она 
равна, то это одна и та же хэш-ссылка и я возвращаю вывод. Если равных 
хэш-ссылок больше одной, то нужно поместить ключи в массив и не возвращать.
Штеффен

Am 01.10.2024 um 14:03 schrieb Коваль Вячеслав via Moscow-pm:
> Смотри, во-первых, в данном случае нет необходимости разыменовывать 
> хэш и брать из него ссылку. Можено сразу передавать нужный хэш: $h{aa}.
> Во-вторых, в функцию (в нижеприведенном коде вместо функции выступает 
> переменная $val) мы уже передаем ссылку на хэш
> { bb => 2 }. Функция ничего не знает о ключе, он есть только в хэше.
> #!/usr/bin/perl -w
> use strict;
> use warnings;
> use feature 'say';
> use DDP;
> use Scalar::Util qw/refaddr/;
> my %h = ( a => { b => 1 }, aa => { bb => 2 } );
> p %h;
> say refaddr $h{aa};
> my $val = $h{aa};
> p $val;
> say refaddr $val;
> say refaddr $h{aa} == refaddr $val;
> Как вариант можно передавать предыдущее значение, где есть ключ.
> my %h = (aa => { bb => { cc => 3}});
> where_key('bb', $h{aa});
>
> Либо передавать исходных хэш:
>
> where_key($искомая_ссылка, \%h);
> ----------------
> 01.10.2024, 14:44, "Alessandro Gorohovski" <an.gorohovski на gmail.com>:
> Кому: Коваль Вячеслав (theathlet на yandex.ru);
> Копия: Moscow.pm group (moscow-pm на pm.org);
> Тема: [Moscow.pm] Узнать родительский ключ по ссылке;
>
>     Вообще то передаётся ссылка (фактически адрес)
>      \%{ $h{aa} }
>     , а не просто значение.
>     вт, 1 окт. 2024 г. в 14:37, Коваль Вячеслав <theathlet на yandex.ru>:
>
>         Для решения задачи все равно нужен доступ к исходному хэшу,
>         т.к. в изначальном коде мы передаем уже обращаемся по ключу и
>         в функцию уже передается значение, т.е. какой-то хэш или
>         массив или значение. А чтобы получить ключ, то нужно
>         рекурсивно пройтись по исходному хэшу и сравнить
>         Scalar::Util::refaddr всех значений с исходным.
>         ----------------
>         01.10.2024, 13:47, "Alessandro Gorohovski via Moscow-pm"
>         <moscow-pm на pm.org>:
>         Кому: Moscow.pm group (moscow-pm на pm.org);
>         Копия: Alessandro Gorohovski (an.gorohovski на gmail.com);
>         Тема: [Moscow.pm] Узнать родительский ключ по ссылке;
>
>             Нет, это не вариант.
>             Функция не знает о хеше %h и его структуре, совсем не знает :)
>             Представьте, что этот хеш может быть не 2х уровневый, а
>             много-много-вложенный по уровням
>             и
>             $ref eq $value
>             может случится на другом уровне.
>             вт, 1 окт. 2024 г. в 13:03, Steffen Winkler via Moscow-pm
>             <moscow-pm на pm.org>:
>
>                 use strict;
>                 use warnings;
>
>                 my %h = ( a => { b=> 1}, aa=> {bb=>2, }, );
>
>                 sub where_key {
>                      my $ref = shift;
>
>                      while ( my ($key, $value) = each %h ) {
>                          $ref eq $value
>                               and return $key;
>                      }
>
>                      return;
>                 }
>
>                 my $k = where_key( $h{aa} );
>                 print $k;
>                 exit;
>
>
>                 --
>                 Moscow.pm mailing list
>                 moscow-pm на pm.org | http://moscow.pm.org
>
>             ,--
>             Moscow.pm mailing list
>             moscow-pm на pm.org | http://moscow.pm.org
>
>         -- 
>         Яндекс.Почта — надёжная почта
>         http://mail.yandex.ru/neo2/collect/?exp=1&t=1
>         <http://mail.yandex.ru/neo2/collect/?exp=1&t=1>
>
> -- 
> Яндекс.Почта — надёжная почта
> http://mail.yandex.ru/neo2/collect/?exp=1&t=1
>
----------- следующая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20241001/70eca90a/attachment-0001.html>