I fixed this by changing the code (see below). However, I need an empty line after the employeeNumber: 123456789 line, how is the "print OUT...constructed? I tried print OUT; print OUT ""; print OUT \n;
Ideas?
#! perl -slw
use strict;
use warnings;
use constant batchdir => "e:\meta";
open DN, "<DDNs3" or die $!;
open UID, "<DDNsUid2" or die $!;
open OUT, ">DDNs3.ldif" or die $!;
while( <DN> ) {
chomp;
print OUT "dn: $_";
print OUT "changetype: modify";
print OUT "replace: employeeNumber";
chomp( my $empNo = <UID> );
print OUT "employeeNumber: $empNo";
print OUT;
};
close OUT;
close UID;
close DN;