java - perl Inline::Java 与 JAXB

Question

嗨，我不确定是否有人有使用 perl Inline::Java 调用 Java JAXB 的经验。基本上，我在 Perl 脚本中添加了一些代码来调用一些调用 JAXB 的 Java API。

System.out.println(“before…”);
JAXBContext context = JAXBContext.newInstance("SomeXMLPackage");
System.out.println(“after…”);

并且它在 JAXB 语句上失败。然后我在 perl 中添加了 Debug 和 AUTOSTUDY 选项，如下所示

use Inline (
    Java => 'DATA',
    J2SDK => $ENV{JAVA_HOME},
    CLASSPATH => 'classes',
    AUTOSTUDY => 1,
    DEBUG => 4,
);

然后我明白了 [java][3] 数据包发送正常 java_object:1:1:javax.xml.bind.JAXBException [perl][3]数据包接收正常 java_object:1:1:javax.xml.bind.JAXBException [perl][3] 检查 stub 是否是数组... [perl][3] perl 不知道 'javax.xml.bind.JAXBException' ('perlAPI::javax::xml::bind::JAXBException') [perl][2] 自动学习 javax.xml.bind.JAXBException... [perl][3] perl 不知道 'javax.xml.bind.JAXBException' ('perlAPI::javax::xml::bind::JAXBException') [perl][3] 关于 javax.xml.bind.JAXBException 的报告

我希望 Perl 内联可以与 JAXB 一起使用 

谢谢

Answer 1

好的，明白了。这就是答案。基本上，需要创建一个类加载器。

ClassLoader cl = SomeXMLPackage.ObjectFactory.class.getClassLoader(); JAXBContext context = JAXBContext.newInstance("SomeXMLPackage", cl);