Perl：IPC :: Shareable和SWIG’ed C对象不同意

因此,我试图在这个上下文中钻研两个“新”字段：IPC::Shareable,并使用SWIG包装C.看来我在那里做错了,这就是我想问的问题.

在C方面,我写了一个小测试类Rectangle,它带有一个空构造函数,一个set和一个size成员函数.

然后我将该类包装在SWIG生成的Perl包示例中.

在Perl方面,我试过SWIG模块按预期工作：

use example;
my $testrec = new example::Rectangle;
$testrec->set( 6,7 );
print $testrec->size() . "n";

这样打印“42”.

然后我试着尝试使用IPC :: Shareable.我编写了两个Perl脚本,一个“服务器”和一个“客户端”来测试资源共享.

服务器”：

use IPC::Shareable;
use example;

# v_ for variable,g_ for (IPC) glue

my $v_array;
my $v_rect;

my %options = ( create => 'yes',exclusive => 0,mode => 0644,destroy => 'yes' );

tie $v_array,'IPC::Shareable','g_array',{ %options } or die;
tie $v_rect,'g_rect',{ %options } or die;

$v_array = [ "0" ];

$v_rect = new example::Rectangle;
$v_rect->set( 6,7 );

while ( 1 ) {
    print "server array: " . join( " - ",@$v_array ) . "n";
    print "server rect:  " . $v_rect->size() . "n";
    sleep 3;
}

客户端”：

use IPC::Shareable;
use example;

# v_ for variable,g_ for (IPC) glue

my $v_array;
my $v_rect;

my %options = ( create => 0,destroy => 0 );

tie $v_array,{ %options } or die;

my $count = 0;

while ( 1 ) {
    print "client array: " . join( " - ",@$v_array ) . "n";
    print "client rect:  " . $v_rect->size() . "n";
    push( @$v_array,++$count );
    $v_rect->set( 3,$count );
    sleep 3;
}

首先启动“服务器”,然后是“客户端”,我得到“服务器”的输出：

server array: 0
server rect:  42
server array: 0 - 1
server rect:  42
server array: 0 - 1 - 2
server rect:  42

而这个输出为“客户端”：

client array: 0
client rect:  0
client array: 0 - 1
client rect:  3
client array: 0 - 1 - 2
client rect:  6

显然,数组引用可以共享,但是客户端没有“看到”服务器的示例:: Rectangle,而是在一个(零初始化的)流氓内存上工作,反过来服务器一无所知…

我怀疑我必须为$v_rect做些什么来使这项工作正常,但我在OO Perl中不够坚实,不知道是什么.谁来救援？