Net::LDAP 性能问题

coolend

LDAP 数据库（本地）中有约800条记录

使用 ldapsearch 导出为 LDIF 文件，只要0.6s
而使用 Net::LDAP 模块导出，却用了6.9s

ldapsearch 导出命令：

ldapsearch -x -b 'dc=test,dc=com' -D "cn=root,dc=test,dc=com" '(objectclass=*)' -w secret > output.ldif

以下是使用 Net::LDAP 模块的 Perl 脚本ldapdump.pl

#!/usr/bin/perl use strict; use Net::LDAP; use Net::LDAP::LDIF; my $conn = Net::LDAP->new('localhost',         port => 389, version => 3); die "ERR: unable to connect: $!\n" if (! $conn); my $result = $conn->bind('cn=root,dc=test,dc=com', password => 'secret'); $result->code && die("bind error: ", $result->error, "\n"); my $basedn = 'ou=users,dc=test,dc=com'; my $ldif = Net::LDAP::LDIF->new('output.ldif','w', onerror => 'undef' ); $result = $conn->search (         base => $basedn, filter => '(objectClass=posixAccount)' ); $result->code && die "ERR: search failed: " , $result->error , "\n"; my $count = $result->count(); my @entries = $result->entries; my $i=-1; while (++ $i < $count) {     $ldif->write_entry($entries[$i]); } $ldif->done(); print "Total $count record found\n";

Google了一番，找到一个很好的 Perl 执行时间测试工具：Devel::NYTProf，可参考 http://tech.idv2.com/2008/12/29/perl-nytprof/

使用上述工具测试后发现慢的原因主要不在 Net::LDAP 模块本身，而是  Convert::ASN1::_decode 和 Convert::ASN1::::_decode_tl 两个函数

不知大家有没有遇到过相同的问题? 有好的解决办法没? Any reply or suggestion from u is great appreciated !

[ 本帖最后由 coolend 于 2009-9-1 22:08 编辑 ]

andyxie407

mark,记录模块

coolend

不太明白楼上兄弟的意思，可否详细说明一下，不胜感激 ~~~

coolend

感谢版主大人的回复!!

最近一直在网上寻找Net::LDAP性能相关的帖子和文章，的确很早以前就有人讨论这个问题，05年甚至更早，距今已有4～5年了。
CPAN上最新的 Convert::ASN1 也是去年9月15日发布的（这么巧？今天也是9月15日，整整一年了，呵呵～～～）

期待 Convert::ASN1 的下一个版本 ~~~ 早日解决这个难题。

偶对C不大熟悉，希望这篇关于 Perl 对C 的扩展接口对版主或其他兄弟有帮助：

http://www.ibm.com/developerwork ... 8_tangming_perltoc/

[ 本帖最后由 coolend 于 2009-9-15 09:49 编辑 ]

py

看看这个，应该能解决你的问题。http://bbs3.chinaunix.net/thread-1620775-1-1.html