LDIF FILE:use Net::LDAP::LDIF; use Net::LDAP::Entry; $ldif = Net::LDAP::LDIF->new( "directory.ldif", "r", onerror => 'warn' + ); while( not $ldif->eof ( ) ) { $entry = $ldif->read_entry ( ); if ( $ldif->error ( ) ) { print "Error msg: ", $ldif->error ( ), "\n"; print "Error lines:\n", $ldif->error_lines ( ), "\n"; } else { print $entry->get_value("sn")."\n"; print $entry->get_value("cn")."\n"; print $entry->get_value("userPassword")."\n"; print $entry->get_value("dn")."\n"; @values = $entry->attributes; print "default: @values\n"; @values = $entry->attributes ( nooptions => 1 ); print "nooptions: @values\n"; } }
dn: cn=Login Server (portal30_sso) cn: Login Server (portal30_sso) description: Central Authentication Authority objectClass: top objectClass: applicationProcess dn: cn=PORTAL30_SSO, cn=Login Server (portal30_sso) sn: PORTAL30_SSO cn: PORTAL30_SSO userPassword: portal30_sso objectClass: top objectClass: person dn: cn=PORTAL30_SSO_ADMIN, cn=Login Server (portal30_sso) sn: PORTAL30_SSO_ADMIN cn: PORTAL30_SSO_ADMIN userPassword: portal30_sso_admin objectClass: top objectClass: person dn: cn=PORTAL30, cn=Login Server (portal30_sso) sn: PORTAL30 cn: PORTAL30 userPassword: portal30 objectClass: top objectClass: person dn: cn=PORTAL30_ADMIN, cn=Login Server (portal30_sso) sn: PORTAL30_ADMIN cn: PORTAL30_ADMIN userPassword: portal30_admin objectClass: top objectClass: person dn: cn=PUBLIC, cn=Login Server (portal30_sso) sn: PUBLIC cn: PUBLIC userPassword: public objectClass: top objectClass: person
In reply to Read LDIF file by bodmin
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |