Perl： IPC：：可共享和SWIG C++对象不同意

对于我的某个Perl项目，我需要几个Perl进程共享一些位于c++库中的资源。(不要问，这不是这个问题的核心，只是上下文。)

因此，在这种情况下，我试图深入研究两个"新"领域:IPC::Shareable和使用SWIG包装c++。看来我做错了什么，这正是我想问的。

在c++端，我写了一个小的测试类Rectangle，它有一个空的构造函数、一个set和一个size成员函数。

然后我把这个类包装在swig生成的Perl包example中。

在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,  'IPC::Shareable', '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, exclusive => 0, mode => 0644, destroy => 0 );
tie $v_array, 'IPC::Shareable', 'g_array', { %options } or die;
tie $v_rect,  'IPC::Shareable', 'g_rect',  { %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

显然，数组引用得到了共享，但客户端没有"看到"服务器的示例::矩形，而是在(零初始化)的流氓内存上工作，而服务器对此一无所知…

我怀疑我必须对$v_rect做些什么才能使这个工作正常，但我在OO Perl中不够扎实，不知道该怎么做。有人来救援吗?