[Ektich]

Folks, нужна помощь в Perl.
Функция as_struct() в примере возвращает reference to a HASH. Все мои попытки вытащить из этого Хаша его ключи пока что приводят к разным ошибкам типа: Type of arg 1 to keys must be hash (not private variable)

Как мне ему правильно об'яснить чего я от него хочу?

Example:

my $hashref = $mesg->as_struct();
print keys $hashref; 
print keys $$hashref;

[Ektich]

Отвечу самому себе:
надо писать

my $hashref = $mesg->as_struct();
print keys %{$hashref}

А вообще - reference to a HASH of references to HASHes of references to arrays - это вам не дырка от бублика...

[nm]

Originally Posted by Ektich

my %hashref = $mesg->as_struct();
print keys %hashref;

а сразу сказать, что это HASH, без кастинга, слабо ?
или я что-то не понял

[Ektich]

Не понял вопроса, но приведу весь код, чтобы ясно было что я делаю.
Если будут предложения по оптимизации - с радостью выслушаю.

my $ldap = Net::LDAP->new($ldap_server) or die "[email protected]";
my $mesg = $ldap->bind($root_dn, password=>$root_dn_passwd) or die "[email protected]";

$mesg = $ldap->search(base => "dc=cs,dc=may,dc=ie",
                      filter => "objectClass=posixAccount");

my $hashref = $mesg->as_struct();

foreach my $dn (keys %{$hashref})... ну и так далее

в двух словах: цепляемся к LDAP серверу, BIND-имся к нему, выполняем поиск.
результат поиска можно заполучить разными методами. as_struct представляет этот самый результат как упомянутый ранее reference to HASH.

[Ektich]

О, я не заметил что nm изменил код когда квотил мой пост:

my %hashref = $mesg->as_struct();

print keys %hashref;

выдает ошибку:

Reference found where even-sized list expected

[nm]

Originally Posted by Ektich

О, я не заметил что nm изменил код когда квотил мой пост:

my %hashref = $mesg->as_struct();

print keys %hashref;

выдает ошибку:

тогда наверно все-таки

my %hashref = %{$mesg->as_struct()};

print keys %hashref;

этоб каждый раз не делать cast в HASH
2-ой пост видимо был правильным )) просто много писать потом придется - если нужно будет хэш часто использовать

[Ektich]

В итоге получились две работающие версии:

my $hashref = $mesg->as_struct();

foreach my $dn (keys %{$hashref}){
              print "$hashref->{$dn}->{'uid'}->[0]\n";
}

и

my %hashref = %{$mesg->as_struct()};

foreach my $dn (keys %hashref){
              print "$hashref{$dn}->{'uid'}->[0]\n";
}

Во втором варианте на одну стрелочку меньше. Но в плане выполнения программки я как-то никакой разницы не почуствовал (пока что).

I love Perl!!! можно извращатся!!!

[Hrach_Techie]

Robert's perl tutorial - первое што выдаст гугл - хороший справочник ...

[nm]

2-ой вариант правильнее чисто идеологически ....


т.к. перл уже знает, что $hashref - это переменная типа HASH и соответственно будет ругаться на изпользование в другом конкексте -- следовательно вероятность сделать ошибку уменьшится