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

[Alessandro Gorohovski]

Hello Steffen,

вт, 1 окт. 2024 г. в 18:17, Steffen Winkler via Moscow-pm <moscow-pm на pm.org
>:

> 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.
>
It turns out that you know in advance what stringified references to expect
?
Or you need to know the full structure of the hash you are investigating in
order to create a lot of nested loops over nested arrays and hashes and
scalars.
---
Получается Вы заранее знаете какие строковые ссылки надо ожидать
?
Или Вам необходимо знать полную структуру исследуемого хеша, чтобы создать
массу вложенных циклов по вложенным массивам и хешам и скалярам.

> 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>
> <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
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
----------- следующая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20241001/c3d72302/attachment-0001.html>