jinyedge's note
{http://www.jinyedge.pe.kr}

Hi, this is jinyedge. I'm a software developer. I hope you can find some useful information in my homepage.

jinyedge at gmail.com
Since 2001.12.05
 

 
Subj Cont
 
Subj: Perl, Import user accounts from LDAP server.
Mtime: 2009-09-04 22:41:19

#!/usr/bin/perl
use Net::LDAP;
use Data::Dumper;

$ldap = Net::LDAP->new("10.0.0.154") or die "$@";
$ldap->bind("cn=admin,dc=rainbowx,dc=net", password => "root1q", version => 3);

$res = $ldap->search(base => "dc=rainbowx,dc=net", scope => "sub"
        , attrs => ["cn"], filter => "objectClass=posixAccount");

my $href = $res->as_struct;
print Dumper($href);

$ldap->unbind;

{ List }