Perl VMã®æ°æã¡ãç¥ãã«ã¯ãPurePerlã§å®è£ ãã¦ã¿ãã¨ããã ã³ã¼ãä¾ï¼PerlVM.pmã®ã³ã¼ãã¯è¨äºã®æ«å°¾ã«ããï¼ï¼ #!perl -w use strict; use PerlVM; my $x = shift || 42; PerlVM::call_sv(sub{ print "Hello,", " world!", "\n"; if($x){ print $x, " is true\n"; } else{ print $x, " is false\n"; } }); __END__ å®è¡çµæï¼ $ perl hello.pl Hello, world! 42 is trueããããPerlVM::call_sv()ã®ä¸ã§å¼æ°ãå¼ã³åºãããã¯ãã¦ããªãã Hello, world!ããããªãPerlVMã®ä¸èº«ãæ¯è¼çåç´ã ããã®ã¡ã«ããºã ã¯Bã¢ã¸ã¥ã¼ã«ã«ä¾åãã¦ãããB
{{#tags}}- {{label}}
{{/tags}}