1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
use IO;
use warnings;
my $output = new IO::File(">output.xml");
use XML::Writer;
my $writer = new XML::Writer(OUTPUT => $output);
$writer->xmlDecl('UTF-8');
$writer->doctype('xml');
$writer->startTag('xml');
my @layer_name = (info1, info2, info3);
foreach $layer (@layer_name) {
$writer->startTag('tag1');
$writer->characters($layer);
$writer->endTag('tag1');
$writer->startTag('signal');
$writer->endTag('Signal');
$writer->startTag('minValue');
$writer->endTag('minValue');
$writer->startTag('maxValue');
$writer->endTag('maxValue');
$writer->startTag('Invalid');
$writer->endTag('Invalid');
}
$writer->endTag();
$writer->end(); |
Partager