Programming

#!/usr/bin/perl


use strict;
use warnings;
use Data::Dumper;
use Net::LDAP;
use DBI;


# get list of job groups from AD, create array @ldapgroups
my $ldap = Net::LDAP->new('ad.dneg.com') or die "$@";
my $mesg = $ldap->bind;
my $result = $ldap->search( base => "ou=Groups,dc=ad,dc=spa,dc=com", 
	                           filter => "cn=*",
                               attr  => ['DisplayName,gidNumber']);



my @entries = $result->entries;

my $previous_gid = -1;

my $entr;
foreach $entr ( @entries ) {
print "DN: ", $entr->dn, "\n";
my $attr;
  foreach (qw/ name gidNumber / ) {
     print "  $_ : ", $entr->get_value ( $_ ) ,"\n";
   }
  print "#-------------------------------\n";
 };