Perl：如何验证对“XML::eXistDB::RPC”的成功调用

Posted 2023-02-16

【中文标题】Perl：如何验证对“XML::eXistDB::RPC”的成功调用

【英文标题】：Perl: how to validate successful call to "XML::eXistDB::RPC"

【发布时间】：2011-04-29 14:49:56

【问题描述】：

我正在使用 eXist 数据库编写一个小型 perl 应用程序，我想知道的是： 我怎么能看到我的电话

my $eXist = XML::eXistDB::RPC->new( destination=>$eXist_db, repository=>$bank, user=>"admin", password=>"pass" ) ;

成功与否？

感谢

【参考方案1】：

当对象初始化失败时，它会通过Log::Report 发送消息，所以钩入那个。

只有在程序员忽略设置rpc 或destination 参数时才会发生这种情况。 new 构造函数将始终返回一个对象实例。

【参考方案2】：

根据文档：

所有方法都返回一个 LIST，其中 第一个标量是返回码 (RC)。 当该代码为 0 时，一切顺利。 否则，代码代表 传输错误或异常 （拒绝）服务器报告的 逻辑。无论哪种情况，第二个 返回列表中的标量包含 错误信息。例如，

也许这也适用于构造函数，试试：

my ($rc,$eXist) = XML::eXistDB::RPC->new( destination=>$eXist_db, repository=>$bank, user=>"admin", password=>"pass" );

现在，如果 $rc != 0 出现错误。

【讨论】：

感谢 soulSurfer2010 的关注，我试过了，但不幸的是没有运气。还有其他想法吗？

我也试过：isa_ok($eXist, "XML::eXistDB::RPC") ;但没有骰子:(