3

我试图让我的 perl 脚本从网上获取一个 Xxml 文件并根据 XSD 文件对其进行验证。

执行此操作的代码如下:

my $url = shift @ARGV;
my $response = $ua->get($url) || die "Can't fetch file";
my $file = $response->content;

my $schema_file = "schema.xsd";
my $schema = XML::LibXML::Schema->new(location => $schema_file);
my $parser = XML::LibXML->new;
my $doc    = $parser->parse_string($file);
eval { $schema->validate($doc) };
die $@ if $@;

运行这个会导致一个神秘的错误:“元素cropdata 内容检查失败”(cropdata 是我的第一个非根标签)。

在我的 XSD 文件中,条目如下所示:

<xs:element name="cropdata">
<xs:complexType>
<xs:sequence>

然后是一堆“ <xs:element..../>”,然后:

</xs:sequence>
</xs:complexType>
</xs:element>

进入 perl 调试器显示在"my $doc = $parser->parse_string($file);"运行该行之后,$doc 打印为 XML::LibXML::Document=SCALAR(0x6b99f0)。

谁能帮我弄清楚我做错了什么?(警告:这可能是一个愚蠢的错误,我不会把它放在我自己身上)。

4

1 回答 1

0

事实证明,我提供的示例 xml 文件是无效的,你瞧,在 xmllint 中检查并更正后,一切正常。

于 2010-12-23T23:11:27.957 回答