é害ãçºçãã¦evalãåºæ¥ãªããªã£ããforkãsocketã使ããªããªã£ãããã¦ã æ²ç¤ºæ¿ã ãã¯ç«ã¡ä¸ãã¦ããããã£ã¦éè¦ããããã§ãã perl ããä»»æã® C ã©ã¤ãã©ãªãå¼ã³åºãæ¹æ³ - kazuhoã®ã¡ã¢ç½®ãå ´ ãåèã«ããã¨ç°¡åã«æ²ç¤ºæ¿Serverãä½ãã¾ãã use Socket; use ops; sub ccall { my $s = "\x68" . pack("L", $_[6]) . "\x68" . pack("L", $_[5]) . "\x68" . pack("L", $_[4]) . "\x68" . pack("L", $_[3]) . "\x68" . pack("L", $_[2]) . "\xb8" . pack("L", ("Dyna"."Loader")->can("dl_find_symbol")->(("Dyna"."Loader")->
{{#tags}}- {{label}}
{{/tags}}