一.需求分析
最近有个需求，就是编写脚本来显示LDAP服务器里面某些用户里面的某些字段，如
uid, uidNumber, 等等，网上查了下资料，发现可以使用perl里面的perl-ldap包来实现。

二. 测试环境

三.基本用法

和其他的Perl 库一样，perl-ldap也是调用use 声明，
如下所示：

打开一个新的LDAP连接，可以使用new()函数来实现，例如打开一个主机名为：
test.com.cn的机器，可以如下所示：

备注：
在这里，并没有指定特定的端口号，perl-ldap假设了默认的端口号：389，这个是默认
的LDAP服务的端口号，如果你使用的是不同的端口，如1389 ,那么就需要port参数，

如下所示：

如果那个机器无法连接，上面的函数调用将在120秒返回错误信息，也可以使用
timeout 参数来指定超时时间，如下所示：

当连接建立好后，可以使用”perldoc Net::LDAP”命令来查询更加详细的说明。所有的
perl-ldap 函数都可以使用手册里面的方法来访问。

常见的perl-ldap方法有：

四.几个例子
1. add()用法：
如果有很多用户在你的系统里面，也许你不希望通过GUI之类的工具手动一个一个的
添加，所以可以编写脚本来实现快速增加用户，或者编写基于Web界面的系统可以让
每个人在上面填写自己的相关信息，而这个信息会自动的添加到LDAP服务里面。
这里我们使用add()方法来增加用户：

上面的代码的作用是向LDAP里面增加了一个”John”帐号。正如你看到的那样，LDAP
里面的“Attributes”属性都被attr参数所提供了。

2.delete()用法：
使用该方法来从LDAP里面删除用户 ，如下：

3.search()用法：
此方法是用来查询用户相关信息，如下：

备注：
search()方法返回的是Net::LDAP:Search对象，所以最简单的方式能得到该对象的结果
内容就是使用entries()方法，该方法会返回Net::LDAP:Entry对象数组。

如：

一些其他有用的方法：

一个简单查询的例子：
test@camlit ~: cat query_ldap.pl

4.modify()用法：
该方法是用来修改用户相关信息，如下：

总结：
在perl脚本中使用perl-ldap来处理关于LDAP一些操作是比较方便的，另外它为管理
和维护拥有大量用户的服务提供简单的方法。