Need some tips on pointers

[Olivier CLERE]

Here is my Perl code:

%berval=3D  (
  bv_len=3D>3,
  bv_val=3D>"123",
  );

$ldapctrl =3D    {
 ldctl_oid=3D>"2.16.840.1.113730.3.4.2",
 ldctl_iscritical=3D>1,
 ldctl_value=3D> %berval,
                    };

I would like to define the Perl equivalent of
what we would call in C:
"an array of pointers to the structure ldapctrl",
see the C code below:

/*
 typedef struct berval {
 unsigned long bv_len;
 char *bv_val;
 };

 typedef struct ldapcontrol {
    char *ldctl_oid;
    struct berval ldctl_value;
    char ldctl_iscritical;
 } LDAPControl, *PLDAPControl;
*/

LDAPControl *tppldapctrl[3], ldapctrl;
ldapctrl.ldctl_oid =3D "2.16.840.1.113730.3.4.2";
ldapctrl.ldctl_value.bv_len =3D 3;
ldapctrl.ldctl_value.bv_val =3D "123";
ldapctrl.ldctl_iscritical =3D 1;

tppldapctrl[0] =3D &ldapctrl;
tppldapctrl[1] =3D NULL;
tppldapctrl[2] =3D NULL;

tppldapctrl[3] is an array of pointer to structure
LDAPcontrol. What would be the equivalent in Perl?


Any help appreciated,

Thank you.

--
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Olivier CLERE
Int=E9gration de Syst=E8mes de Communication

Groupe CS Communications & Systems
88, rue Brillat-Savarin 75013 PARIS
E-mail: [EMAIL PROTECTED]
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D



---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]