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
