Net::LDAP で LDAP のエントリを追加する方法

Net::LDAP::Entry オブジェクトを使う。

$entry = Net::LDAP::Entry->new() ;
$dn = hogehoge() ;                     # DN を取得する
$entry->dn( $dn ) ;                    # エントリに DN を設定
                                       # new 時に DN がわかっているなら
                                       # $entry = Net::LDAP::Entry->new( $dn ) ;
                                       # で十分。
 
$entry->add( attr_name1 => value1 ) ;
$entry->add( attr_name1 => value2 ) ;  # 同じアトリビュート名があってもきちんと追加してくれる
$entry->add( attr_name3 => value3 ) ;
$entry->add( attr_name4 => value4 ) ;
 
$msg = $ldap->add( $entry ) ;

で、なんて簡単なんだぁ、特に同じアトリビュートが重なったときにも重ねて設定指定くれるなんて素晴らしい