Tôi làm cách nào để xác thực XML bằng XSD trong Perl?

Question

Đây có thể là một câu hỏi đơn giản đối với hầu hết các lập trình viên Perl, tôi chỉ sử dụng Perl trong hai tuần cho đến nay và rất không quen thuộc với các gói Perl.

Tôi có một tập tin XSD đơn giản như sau:

<?xml version="1.0" ?> 
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sql="urn:schemas-microsoft-com:mapping-schema"> 
    <xsd:element name="elementname"> 
     <xsd:complexType> 
      <xsd:sequence> 
       <xsd:element name="field1" type="xsd:integer" minOccurs="0" maxOccurs="1"/> 
       <xsd:element name="field2" type="xsd:string" minOccurs="0" maxOccurs="1"/>    
      </xsd:sequence> 
     </xsd:complexType> 
    </xsd:element> 
</xsd:schema> 

Tôi rất thích để xác nhận một tập tin XML với XSD trên để đảm bảo đây là một XML hợp lệ. Tôi nên sử dụng mô-đun Perl nào? Tôi thích một mô-đun có sẵn trên cả ActivePerl và Perl trên * nix. Sẽ rất hữu ích để đăng một số đoạn mã.

Cảm ơn

Answer 1

Tôi nghĩ bạn cần XML::Validator::Schema từ CPAN. Đây là README, và cài đặt:

perl -MCPAN -e 'install XML::Validator::Schema' 

Answer 2

XML::LibXML::Schema có một phương pháp validate.

Xem thêm câu trả lời của tôi cho Why does my XSD file fail to parse with XML::LibXML?.