Уважаемое сообщество, приветствую! Подскажите, может кто-нибудб знает/сталкивался: существует ли способ узнать родительский ключ хеша по ссылке?
# Например, есть хеш
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
