2005-11-16から1日間の記事一覧
use strict; use Net::LDAP; use Net::LDAP::LDIF; if(!@ARGV){die &usage;} my $ldifFile = shift @ARGV; my $ldif = Net::LDAP::LDIF->new($ldifFile); print "<<======START======>>","\n"; my $entries = 0; while(not $ldif->eof()){ $entries++; print…