Re: Iterating thru array of hashes

Thanks Graham.

1. I am using objectClass as an array in the hash. I am getting 'Object
Class violation' in the ldapadd op. Should I be using a 3-D array hash?

$user{'loginShell'} = $loginShell;
$user{'homeDirectory'} = "/home/$sAMAccountName";
$user{'gecos'} = $cn;
$user{'objectClass'} =
['top','shadowAccount','posixAccount','person','account','inetorgperson','or
ganizationalPerson'];
push @add_user,\%user;

2. You are right, I get a flat DN when trying to iterate thru the array of
hashes. How do I make the below code to print the different values that I
pushed in the above code snippet?
 
code:
my(@add_user)=@_;
my %value = @_;
foreach $value ( @add_user )
{ 
 $entry = Net::LDAP::Entry->new;
 $dn = "uid=".$value->{'uid'}.",ou=People,".$ldap_base;
 print "DN:$dn \n";
}

The above code currently prints the last appended value to the output and
due to object class violation LDAP-ADD is throwing error.

Thanks,
Prashanth


On 3/29/10 3:04 PM, "Graham Barr" <[email protected]> wrote:

> 
> On Mar 29, 2010, at 1:56 PM, Prashanth Sundaram wrote:
> 
>> Hello,
>> 
>> I need some help in understanding how to iterate thru array of hashes. I am
>> basically pushing a hash into array and then passing the array to another
>> function to iterate thru the values. I could do it parallely but I wanted to
>> check the size of the array and make sure it is within the defined limits.
>> 
>> Q: After passing the array, how can I iterate thru the entries to perform an
>> LDAP-ADD. I am getting error adding. Any help or optimization for this?
>> 
>> Does someone have a better way of doing this? I am performing a one-way sync
>> from AD to LDAP with custom attributes and also making sure the additiona nd
>> deletion list is within a specified limit.
>> 
>> code:
>>         $user{'cn'} = $cn;
>>         $user{'givenName'}=$givenName;
>>         $user{'sn'} = $sn;
>>         $user{'description'} = $description;
>>         $user{'mail'} = $mail;
>>         $user{'uid'} = $sAMAccountName;
>>         $user{'objectClass'} = @objectClass;
>>         $user{'userPassword'} = &get_password;
>>         $user{'gidNumber'} = $gidNumber;
>>         $user{'loginShell'} = $loginShell;
>>         $user{'HomeDirectory'} = "/home/$sAMAccountName";
>>         $user{'gecos'} = $cn;
>>         $user{'uidNumber'} = $uidNumber;
>>         push @add_user,%user;
> 
> you cannot push hashes, perl will flatten it and push its contents.
> 
> You need to push a reference to the hash
> 
>   push @add_user, \%user;
> 
>> 
>> Routine-2
>> foreach $item ( @add_user )
>>    {
>>      $entry = Net::LDAP::Entry->new;
>>      $dn = "uid=".$item{'uid'}.",ou=People,".$ldap_base;
> 
> as $item is a reference to a hash, you have to access it as one
> 
>   $item->{'uid'}
> 
>>      print "DN:$dn \n";  # Test to see if DN prints properly
>> 
>>      my $mesg_ld = $ldap_ld->add($dn,attr => [ %item ] );
> 
> Graham.
>