SV構造体と操作関数の確認用スクリプト。 #define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "ppport.h" MODULE = Foo::Bar PACKAGE = Foo::Bar PROTOTYPES: DISABLE void test_newSV() CODE: { SV *svPv = sv…