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

Tue, 01 Oct 2024 07:32:53 -0700

Смотри, во-первых, в данном случае нет необходимости разыменовывать хэш и брать из него ссылку. Можено сразу передавать нужный хэш: $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" <[email protected]>:
Кому: Коваль Вячеслав ([email protected]);
Копия: Moscow.pm group ([email protected]);
Тема: [Moscow.pm] Узнать родительский ключ по ссылке;
 
Вообще то передаётся ссылка (фактически адрес)
 
 \%{ $h{aa} } 
 
, а не просто значение.
 
вт, 1 окт. 2024 г. в 14:37, Коваль Вячеслав <[email protected]>:
Для решения задачи все равно нужен доступ к исходному хэшу, т.к. в изначальном коде мы передаем уже обращаемся по ключу и в функцию уже передается значение, т.е. какой-то хэш или массив или значение. А чтобы получить ключ, то нужно рекурсивно пройтись по исходному хэшу и сравнить Scalar::Util::refaddr всех значений с исходным.
 
----------------
01.10.2024, 13:47, "Alessandro Gorohovski via Moscow-pm" <[email protected]>:
Кому: Moscow.pm group ([email protected]);
Копия: Alessandro Gorohovski ([email protected]);
Тема: [Moscow.pm] Узнать родительский ключ по ссылке;
 
Нет, это не вариант.
Функция не знает о хеше %h и его структуре, совсем не знает :)
 
Представьте, что этот хеш может быть не 2х уровневый, а много-много-вложенный по уровням
и 
$ref eq $value 
может случится на другом уровне.
 
 
вт, 1 окт. 2024 г. в 13:03, Steffen Winkler via Moscow-pm <[email protected]>:
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
[email protected] | http://moscow.pm.org
,--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
 
 
 
 
-- 
Яндекс.Почта — надёжная почта
 
 
 
 
-- 
Яндекс.Почта — надёжная почта
http://mail.yandex.ru/neo2/collect/?exp=1&t=1
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить