Привет. Взяв пример из документации https://metacpan.org/pod/Net::LDAP::Examples#PROCESSING-Displaying-SEARCH-Results приспособил для своих нужд для поиска интересующих записей и атрибутов. Для дальнейшей обработки найденного, я бы хотел использовать хэш, где ключ - какой-то выбранный атрибут, а значение - все остальные атрибуты через пробел. Вот так у меня получилось
#код из примера
my @entries = $result->entries;
my $entr;
foreach $entr ( @entries ) {
my $attr; my $attrVal;
my $str='';
foreach $attr ( sort $entr->attributes ) {
next if ( $attr =~ /;binary$/ );
my $attrVal = $entr->get_value ( $attr );
#это мой велосипед
my $tmp=(join($attr,$attrVal))."|";
$str=$str.$tmp;
while ($str=~/^(.*)|(.*)|(.*)|/g) {
printf "%-20s %s\t%s\n", $3,$2,$1;
$hash{$3} = join ' ',$2,$1;
}
#велосипед
}
}
но это некрасиво/неправильно/мне стыдно - значения отсортированных по алфавиту названий атрибутов склеиваю в строку, а потом её разбиваю. Как правильно, в лучших традициях perl обработать вывод найденного?
