Hello Perl experts, I am new to perl, I am writing a script which needs to check all the users from LDAP Active directory, and check the users in our database, if there is any user from LDAP is not present in Database then add that user in DB

here is my code

#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;
use Net::LDAP;
#use List::Compare;

my ($uid) = $ARGV[0];

if ($#ARGV > 0 ) {
        print " \n";
        print "\nUsage: SCRIPTNAME.pl UID (BJB UID- use the Uppercase 
+'U' letter)\n";
exit;
}
#
                                ##### DB Related #################
my $dbdriver = "Oracle";
my $dbname = "xxx";
my $dbhost="xxx";
my $dbport="1521";
my $dbdsn = "xxx";
my $dbuserid = 'xxx';
my $dbpassword = 'xxx';

my $dbh = DBI->connect($dbdsn, $dbuserid, $dbpassword ) or die $DBI::e
+rrstr;

my $sth = $dbh->prepare("SELECT users.id,users.displayname,users.enabl
+ed,users.name,regions.name AS defaultRegion FROM regions JOIN users O
+N users.regionid = regions.id WHERE users.regionid = regions.id") or 
+die "Can't prepare statement: $DBI::errstr";
$sth->execute();

## Display any printed messages from the sql query result
if (defined($dbh->err)) {
        if ($dbh->err eq 0) {
                print "Warning message : ", $dbh->errstr, "\n";
        } elsif ($dbh->err eq '') {
                print "Informational message : ", $dbh->errstr, "\n";
        }
}
print " \n";
print " \n";
print "##############  Database Query Results ##################\n";
## Print rows affected
printf "Rows affected: %s\n",$sth->rows,"\n";
## Print the column name.
#print "$sth->{NAME}->[0]\n";
my $nf = $sth->{NUM_OF_FIELDS};
print "This statement returns $nf fields\n";
for ( my $i = 0; $i < $nf; $i++ ) {
        print "$sth->{NAME}->[$i]\t";
}
print " \n";

## Fetch and display the result set value.
while ( my @row = $sth->fetchrow_array ) {
        foreach (@row) {$_ = '' unless defined}; # change all NULLs to
+ empty strings
        print "@row\t\n";
}

## Hashmap for the DB 
my $dbUsers = {};
$sth->execute();
while( my @row = $sth->fetchrow_array() ) {
  $dbUsers->{$row[0]} = {
    id => $row[0],
    displayName => $row[1],
    enabled => $row[2],
    name => $row[3],
    defaultRegionId => $row[4]
  };
}

foreach my $uid (keys %$dbUsers) {
  print $dbUsers->{$uid}->{'displayName'} . "\n";
  print $dbUsers->{$uid}->{'name'} . "\n";
  print $dbUsers->{$uid}->{'id'} . "\n";
  print $dbUsers->{$uid}->{'enabled'} . "\n";
  print $dbUsers->{$uid}->{'defaultRegionId'} . "\n";
}

$sth->finish();
$dbh->disconnect;


                                ######## LDAP Related ##############

my $server = "xxx";
my $ldap = Net::LDAP->new( $server ) or die $@;

my $ldapuser_dn = "xxx";
my $ldappass = "xxx";
$ldap->bind( $ldapuser_dn,  password => $ldappass );

my $result = $ldap->search(
# Searching for all the users from AD group
        base   => 'DC=xxx,DC=xxx',
        filter => "(&(CN=xxx))",
        attrs  => ['member']
);
die $result->error if $result->code;

my $ldapUsers = {};

foreach my $entry ($result->entries) {
        print $entry;
        print "---";
        my @members = $entry->get_value('member');
        printf "COUNT: %s\n", scalar @members;

        foreach my $member (@members) {
                my $user = $ldap->search(
                  base   => $member,
                  scope  => 'base',
                  filter => 'cn=*'
                );
                die $user->error if $user->code;
                foreach my $entry ($user->entries) {
                  my $id = $entry->get_value('sAMAccountName');
                  my $id2 = substr $id, 1;
                  $ldapUsers->{$id2} = {
                        id => $id2,
                        name => $entry->get_value('sAMAccountName'),
                        displayName => $entry->get_value('displayName'
+),
                        defaulteRegion => $entry->get_value('extension
+Attribute1')
                  };
                }
        }
}

foreach my $uid (keys %$ldapUsers) {
        print $ldapUsers->{$uid}->{'displayName'} . "\n";
        print $ldapUsers->{$uid}->{'name'} . "\n";
        print $ldapUsers->{$uid}->{'id'} . "\n";
        print $ldapUsers->{$uid}->{'defaulteRegion'} . "\n";
}

print "====================END===========================\n";
#$ldap->unbind;

##I am looking for the code here to compare the "name" from Ldap and D
+B, if the ldap user is not present in the DB, then add him to DB.. 

## DB query looks like below
insert into users (id, name, displayname, regionid) values ('123456', 
+'U123457', 'Doe, John', select id from regions where name='$user->{'d
+efaultRegion'}')

[download]

In reply to Re: Check if the first hash value is present in second hashmap by Anji@BJB
in thread Check if the first hash value is present in second hashmap by Anji@BJB

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.