Help for this page

Select Code to Download

Select or download this

use Net::LDAP::LDIF;
my $ldif = Net::LDAP::LDIF->new('nejms.txt', 'r', onerror=>'die');
...
        $entry->get_value('orclnetdescstring'), "\n";
}
$ldif->done;

Select or download this

$ perl -ne 'next if /^dn:|^\s*$/; s/^cn:\s*(.+)\n/$1/;
  s/^orclnetdescstring:\s*/=/; print' nejms.txt
common_name1=complex_address_line1
common_name2=complex_address_line2
common_name3=complex_address_line3