Hi Guys

Suppose I do something like this:

void make_struct{HV* hash_ref} {
        hv_store(hash_ref, "key",3, newRV_noinc((SV*)arr_ref = newAV()), 0);
        av_store(arr_ref, 1, newRV_noinc((SV*)hash2_ref = newHV()));
        hv_store(hash2_ref, "test", 4, 33);
}

And then in perl if I did this:

my %testhash = ();
make_struct(\%testhash);
print $testhash{key}[1]{test}

And this would print 33 right?

Thanks !
Nitin

Reply via email to