Как добавить атрибут к результату поиска LDAP в perl

Question

Я делаю поиск LDAP и в результате этого я получаю записи.

В некоторых записях атрибут отсутствует (скажем, атрибут "o").

Мне нужно добавить этот атрибут "о" в записи, которые отсутствуют.

Примечание: мне не нужно обновлять это значение на сервере LDAP. Мне просто нужно добавить этот атрибут "о" вместе со значением в результирующей переменной, которая у меня есть в качестве результата поиска.

У меня есть следующий код:

 if($entry->exists('o')){
      func($entry);//this funtion manipulates the entry
 }
 else{
      # I need the code here to add the "o" attribute and a value to the $entry
      func($entry);
 }

Как добавить этот атрибут "о" в переменную?

Answer 1

Я предполагаю, что запись является объектом Net::LDAP::Entry? Если это так, вы сможете добавить атрибут, вызвав "add":

$entry->add( 'o' => 'new value' );

Итак, ваш пример будет выглядеть так:

if($entry->exists('o')){
      func($entry);//this funtion manipulates the entry
}
else{
      $entry->add( 'o' => 'new value' );
      func($entry);
}