Re: Iterating thru array of hashes

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.