c - 如何使用 SWIG 在 C 中构建 Perl 哈希？

Question

我正在尝试从 C 库中创建 Perl 哈希。这是我到目前为止所得到的：

static void add_string_to_perl_hash ( HV *hv, char * key, char *value ) {

SV *obj = sv_2mortal(newSVpv(value, 0));

hv_store(hv, (const char *)key, strlen (key), obj, 0);

SvREFCNT_inc(obj);

}

SV * do_get_test_hash () {

    static char *foo ="foo";
    static char *bar ="bar";

    HV *hv;

    hv = newHV();
    add_string_to_perl_hash ( hv, "foo",   foo);
    add_string_to_perl_hash ( hv, "bar",   bar);

    return sv_2mortal(newRV_noinc((SV*)hv));
}

尝试一下：我没有得到任何对我有意义的东西：

use testlib;
use Data::Dumper;

print Dumper (testlib::do_get_test_hash());

$VAR1 = bless( do{\(my $o = 5359872)}, '_p_SV' );

想法？

Answer 1

看看perlxstut的示例 6 。它创建一堆哈希并将它们添加到一个数组中。最后，它返回对数组的引用。如果您返回一个哈希值，它的工作原理几乎相同。

Answer 2

我相信您必须将要返回的值推入堆栈，而不是从函数中返回，但我习惯于 XS 而不是 SWIG。