perl から任意の C ライブラリを呼び出す方法 - kazuhoのメモ置き場

syscall って組込関数でシステムコールはできますけど、libc やその他ライブラリの関数を呼びたい、ってこともありますよね。i386 かつ dlopen な環境なら、こんな風に書けます。 use DynaLoader; use ops; sub ccall { my $r = '1111'; my $s = "\x68" . pack("L", $_[5]) . "\x68" . pack("L", $_[4]) . "\x68" . pack("L", $_[3]) . "\x68" . pack("L", $_[2]) . "\x68" . pack("L", $_[1]) . "\xb8" . pack("L", ("Dyna"."Loader")->can("dl_find_symbol")->(("Dyna"."Loader")->can("dl_load_file")->

[tgk]

意味が分からずにブックマーク

[kdaiba]

Win32::API使う時はこんな感じ

[sankaseki]

perl から任意の C ライブラリを呼び出す方法 - id:kazuhookuのメモ置き場

[shidho]

perlタグをつけていいか迷ったけど、まあperlで書いてるわけだしな。

[mitsuki_engawa]

なんかN88-BASICのDATA/READ/POKEを思い出した。

[TAKESAKO]

やはり犯人は（ｒｙ

[hiroyukim]

++