在Perl中使用多个包来使用JSON :: RPC :: Server编写API服务器模块

Question

我已经编写了一个使用JSON :: RPC :: Server的服务器模块，并试图导入多个包（使用use ）。 这是Server.pl文件的代码：

#!/usr/bin/perl

use JSON::RPC::Server::Daemon;
use add2Num;

JSON::RPC::Server::Daemon->new(LocalPort => 42337)
                          ->dispatch({'/jsonrpc/API' => 'add2Num'})
                          ->handle();

这很好。 但是，我想导入（ use ）另一个文件，比如说减法。 我试过以2种方式重写服务器模块，如下所示：

#!/usr/bin/perl

use JSON::RPC::Server::Daemon;
use add2Num;
use sub2Num;

JSON::RPC::Server::Daemon->new(LocalPort => 42337)
                          ->dispatch({'/jsonrpc/API' => 'add2Num'})
                          ->dispatch({'/jsonrpc/API' => 'sub2Num'})
                          ->handle();

和

#!/usr/bin/perl

use JSON::RPC::Server::Daemon;
use add2Num;
use sub2Num;

JSON::RPC::Server::Daemon->new(LocalPort => 42337)
                          ->dispatch({'/jsonrpc/API' => 'add2Num', 'sub2Num'})
                          ->handle();

当我尝试访问写在sub2Num的减法函数时，这两个都给我一个“过程错误”。 我遵循此链接了解dispatch的语法。 有人可以告诉我我的错误吗？

Answer 1

在查看了模块的代码 （好了，差不多）之后，我认为您的假设是正确的。 同一路径不能有两个模块。

elsif (ref $arg[0] eq 'HASH') { # Lazy loading
    for my $path (keys %{$arg[0]}) {
        my $pkg = $arg[0]->{$path};
        $self->{dispatch_path}->{$path} = $pkg;
    }
}

它将在分发中接受路径和模块的多个键/值对，因此无需两次调用分发。 但是，每个路径只允许一个模块。 你的第二个电话来dispatch与sub2Num为重写先前设定的add2Num 。

在不尝试任何操作的情况下，我看到了一些解决方案：

• 使用数组ref语法dispatch(['add2Num', 'sub2Num')并找出在哪里设置守护程序绑定到的路径（最有可能）
• 构建一个额外的模块，该模块同时导入add2Num和sub2Num来将它们组合并dispatch({'/jsonrpc/API' => 'combinedNum})
• 将您需要的支持添加到模块中，并将其作为补丁提交给作者（极有可能）