我有一个像这样的 perl 对象(对哈希的祝福引用)。
sub funcname {
#some code
}
my $o = My::Class->new();
$o->{internal_data} = \&funcname; #I know it is not nice
在 XS 代码中我有 $o 引用的其他地方,我需要获取$o->{internal_data}
.
/* at some point in XS code */
SV *obj = ... /* $o value passed to a XS function */
SV *func;
...
/* here I do not know how to load $o->{internal_data} value into func */
...
call_sv(func,G_SCALAR);
perl(api|xstut|guts|???) 中可能有一些章节。我只是找不到它。
提前感谢您的任何提示。
--kmx