Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1834
  • 博文数量: 10
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 10
  • 用 户 组: 普通用户
  • 注册时间: 2019-06-30 11:36
文章分类

全部博文(10)

文章存档

2019年(10)

我的朋友
最近访客

分类:

2019-06-30 12:20:07

#!/usr/bin/perl
use Inline C;
use Inline C => Config => MYEXTLIB => '/tmp/show.so';
use strict;

my $x=1;
my $y=2;
print "PERL:x=$x y=$y\n";
my $so=return_c_so($x);
print "C_SO:x+1=$so\n";

__END__
__C__
#include
#include
int return_c_so (int z) {
        return show(z);
}

阅读(93) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册