Well... you have a bunch of Net::LDAP::Entry objects and you write them down in LDIF format using write_entry...

What do you want to be explained?

Anyway, a snippet of code I wrote in 5 minutes

#!/usr/bin/perl
                                                                      
+          
use strict ;
use warnings ;
                                                                      
+          
use Net::LDAP ;
use Net::LDAP::LDIF ;
                                                                      
+          
my $ldap = Net::LDAP->new('10.39.0.208',port => 3268) ;
die unless defined $ldap ;
                                                                      
+          
$ldap->bind('a_dn_of_mine', password => 'a_password_of_mine') or die ;
                                                                      
+          
my $res  = $ldap->search(base => 'dc=tiscali,dc=com',
                         filter => '(givenName=Marco)') ;
                                                                      
+          
die $res->code if $res->is_error ;
                                                                      
+          
my $ldif = Net::LDAP::LDIF->new('myself.ldif','w') ;
die unless defined $ldif ;
                                                                      
+          
$ldif->write_entry($res->entries) ;
                                                                      
+          
$ldif->done ;
$ldap->unbind ;
[download]

I hope it helps

It worked! So easy! Thanks.

Thanks. What I don't get is how to get the output from read-entry to be written by write-entry.

Well, man says:

       read_entry ( )
           Read one entry from the file and return it as a "Net::LDAP:
+:Entry"
           object.
[download]

So you read entries from an LDIF file, one by one, and then you write them on another, that's all. What you need to change in the script I already posted is:

• read the entries one by one from an LDIF file (not from an LDAP server, and you don't have an entries method that returns the entries all-in-a-sweep) into a variable, say $e
• write the ones you want on the other file, using $ldif->write_entry($e)

Since you say that you know how to use read_entry, you should be able to modify my script any way you like to do the job.

Ciao!
--bronto

---

The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway).
--John M. Dlugosz