perl Inline :: Java与JAXB

Question

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

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]检查存根是否为数组... [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 inline可与JAXB一起使用

谢谢

Answer 1

好，知道了 这是答案。 基本上，需要创建一个类加载器。

ClassLoader cl = SomeXMLPackage.ObjectFactory.class.getClassLoader（）; JAXBContext context = JAXBContext.newInstance（“ SomeXMLPackage”，cl）;