Re^4: Writing XML file according to schema with extracted text from string length

Hi,

Here is my code.

use XML::Compile::Schema;

use XML::LibXML;

my $doc = XML::LibXML::Document->new('1.0', 'UTF-8');

my $schema = XML::Compile::Schema->new('Example.xsd', ignore_unused_tags => 0);

my $write = $schema->compile(WRITER => "RootTag");

my $xml = $write->($doc, $hash);

my $result = $doc->setDocumentElement($xml);

Kindly help me..

Thanks.

Comment on Re^4: Writing XML file according to schema with extracted text from string length