매개 변수가있는 perl 루틴 호출

Question

내 C 프로그램에서 perl 루틴을 호출해야합니다. 펄 루틴은 다음과 같은 인수를 취합니다 : 및 $b이 정수 인 $a, $b, $c, $c은 문자열입니다 (2 진수 문자를 포함 할 수 있음). perlcall에 따르면 여기에 전화를 걸기위한 수단이 있습니다.

I32 call_sv(SV* sv, I32 flags); 
I32 call_pv(char *subname, I32 flags); 
I32 call_method(char *methname, I32 flags); 
I32 call_argv(char *subname, I32 flags, char **argv); 

내가 단지 call_argv (...)를 사용할 수있는 것 같다,하지만 두 가지 질문

이있다

• 나는 (A를 통과 어떻게
• 루틴 펄의 정수를 전달 어떻게 바이너리) 문자열을 perl로?

소원

I32 call_argv(char *subname, I32 flags, int numOfArgs, SV* a, SV* b, SV *c ...); 

Answer 1

같은 함수 Passing Parameters section of perlcall를 참조있다. 인수는 Perl 스택에 푸시됩니다. call_argv은 문자열이 아닌 다른 항목을 전달하는 데 유용하지 않습니다. 호출 규칙은

PUSHMARK(SP); 
mPUSHi(some_integer); 
mPUSHp(binary_data, len); 
XPUSHs(some_SV_I_had_laying_around); 
PUTBACK; 
call_pv("sub_name", G_DISCARD); 

처럼 보일 것입니다거나 일부 개체의 이름으로 메소드를 호출 call_method을 당신이 SV*의 하위 이름이있는 경우 call_sv를 사용하거나 할 수 있습니다.

하위 값이 반환되면 G_SCALAR 또는 G_ARRAY으로 호출하고 POP 매크로를 사용하여 반환 값에 액세스 할 수 있습니다. 이에 대해서는 다음 두 절에서 자세히 설명합니다. SPAGAIN을 잊지 마세요.