Я написал следующий скрипт Perl (ниже), чтобы создать простой XML-файл. Сгенерированный вывод действителен, но у меня есть особые требования к форматированию для сгенерированного исходного кода XML.Создание форматированного XML из DOM с использованием Perl
Как я могу изменить свой сценарий, чтобы добавить пробел, который я желаю?
#!/usr/bin/perl
use warnings;
use XML::LibXML;
my $doc = XML::LibXML::Document->new;
my $root = $doc->createElement('LEVEL1');
$doc->setDocumentElement($root);
my $system = $doc->createElement('LEVEL2');
$root->appendChild($system);
my $install = $doc->createElement('LEVEL3');
$system->appendChild($install);
print $doc->toString;
Выход сценария:
<?xml version="1.0"?>
<LEVEL1><LEVEL2><LEVEL3/></LEVEL2></LEVEL1>
Желаемый результат:
<?xml version="1.0"?>
<LEVEL1>
<LEVEL2>
<LEVEL3/>
</LEVEL2>
</LEVEL1>
моя цель изменить сценарий для того, чтобы сделать XML в качестве примера 2 Я понимаю, что пример 1 является правильным, но как я могу манипулировать XML как пример 2? Yael – yael
@yael: Извините, вопрос, как изначально написанный, звучал так, как будто вы считали, что XML недействителен. – MJB