时间戳

首页 > 解决方案 > 使用 Inline/C 从 Perl 调用外部 C 函数（在共享库中）不起作用

c - 使用 Inline/C 从 Perl 调用外部 C 函数（在共享库中）不起作用

问题描述

该代码或多或少是从作者的页面中窃取的： https ://metacpan.org/pod/distribution/Inline-C/lib/Inline/C/Cookbook.pod 但没有给出预期的结果：

use Inline C => Config =>
           enable => autowrap =>
           LIBS => "-lmylib ";
use Inline C => <<'END_OF_C_CODE';

extern char *sharedFun(char *);

void greet(char* name) {
  printf("Hello %s!\n", name);
}


char *func(char* name) {
  static char mystr[1024];
  char *p;

  strcpy(mystr, "string: ");
  p = sharedFun(name);
  strcpy(mystr, p);

  return(mystr);
}

END_OF_C_CODE

greet('Hello World');
greet(42);
$p = func("foobar");
print $p, "\n";

执行的结果是：

nm libmylib.so | grep shared
000000000000056a T sharedFun
file libmylib.so
libmylib.so: ELF 64-bit LSB shared object, x86-64, version 1 (FreeBSD), dynamically linked, not stripped


$ perl inline.pl
Hello Hello World!
Hello 42!
/usr/home/guru/Perl/_Inline/lib/auto/inline_pl_9404/inline_pl_9404.so: Undefined symbol "sharedFun"

我检查了：未搜索strace共享库。libmylib.so为什么？

标签： cperl

解决方案

我认为 lib 已搜索但未找到，因此未加载符号。

从文档中，您可能能够提供库的路径： LIBS => '-L/your/lib/path -lyourlib';

推荐阅读