普通にNet::LDAPで bind すると非常に重い、しかも 20万件以上エントリーのあるLDAPを引いてみたところ、Out Of Memory!! が出力されてしまった。 そこでldapsearchをパイプでParseする事に、これで断然高速化が図れかつメモリ使用量も肥大化せずに済む筈だ。 ldapsearchをパイプでPerlに渡す ./ldap_parse.sh #!/bin/sh ldapsearch -x -LLL -h xxx.xxx.xxx.xxx -D "cn=admin,o=enecom,c=com" -w password -b c=com '(cn=*)' | ./ldap_parse.pl exit 0 ./ldap_parse.pl #!/usr/bin/perl use strict; use Net::LDAP::LDIF; my $ldif = Net::