我试图让我的 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)。
谁能帮我弄清楚我做错了什么?(警告:这可能是一个愚蠢的错误,我不会把它放在我自己身上)。