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

나는 스택으로 돌아가고 싶은 값을 함수에서 리턴하지 말아야한다고 믿는다.하지만 SWIG보다는 XS에 익숙하다.