If you find yourself having problems with nested loops, it helps to indent your code so the structure becomes clearer:

while (<PERSON>)
{
chomp;
$dn = $ldap->search( #return only the employeeID DN
        base => "$BASEDN",
        filter => "(&(objectClass=user)(employeeID=$_))",
        scope => "sub",
        attrs => [@attr]
        );

        next unless $dn; # Make sure something is returned
while( my $entry = $dn->pop_entry() )
{
        $result->write_entry($entry);
        if ( $result != /dn:/ )
{
        print OUT (@lines);
}
while (<MGR>)
{
...

[download]

could be reindented as

while (<PERSON>)
{
    chomp;
    $dn = $ldap->search( #return only the employeeID DN
        base => "$BASEDN",
        filter => "(&(objectClass=user)(employeeID=$_))",
        scope => "sub",
        attrs => [@attr]
        );

        next unless $dn; # Make sure something is returned
    while( my $entry = $dn->pop_entry() )
    {
        $result->write_entry($entry);
        if ( $result != /dn:/ )
    {
        print OUT (@lines);
    }
    while (<MGR>)
    {
    ...

[download]

So, you'll see that once you've read to the end of MGR, you'll still have lines in PERSON. Maybe you want to look up data from the contents of MGR? Then a hash is a better structure:

my %manager;
while (<MGR>) {
    $manager{ $_ } = $ldap->search(...); # return only the manager DN
};

while (<PERSON>) {
    ... # you never seem to use the information from MGR here...
};

[download]

In reply to Re^7: Perl Builds an LDIF by Corion
in thread Perl Builds an LDIF by rfransix

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.