perl LibXML写XML文档

Question

我对XML世界很陌生。我写了下面的代码来使用XML :: LibXML生成XML。我明白，我认为我将名称空间视为我认为不正确的属性。我不知道该怎么做。所以请寻求你的帮助，以纠正我的代码。

XML文档：

<RootDocument protocol="OCI" xmlns="C" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> 
    <sessionId xmlns="">172.24.160.8,31436753,1298637565495</sessionId> 
    <command xsi:type="AuthenticationRequest" xmlns=""> 
    <userId>automation</userId> 
    </command> 
</RootDocument> 

的Perl脚本：

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

my $root = $ociRequest->createElement ('RootDocument'); 

$root->addChild ($ociRequest->createAttribute (protocol => 'OCI')); 
$root->addChild ($ociRequest->createAttribute (xmlns => 'C')); 

$root->addChild ($ociRequest->createAttribute ('xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance')); 
#$root->setNamespace ('http://www.w3.org/2001/XMLSchema-instance', 'xsi', 0); 
$ociRequest->setDocumentElement ($root); 


my $session = $ociRequest->createElement ('sessionId'); 
$session->addChild ($ociRequest->createAttribute (xmlns => '')); 
$session->addChild($ociRequest->createTextNode($sessionID)); 
$root->addChild($session); 

my $command = $ociRequest->createElement ('command'); 
$command->addChild ($ociRequest->createAttribute ('xsi:type' => 'AuthenticationRequest')); 
$command->addChild ($ociRequest->createAttribute ('xmlns' => '')); 

    my $userid = $ociRequest->createElement ('userId'); 
    $userid->addChild($ociRequest->createTextNode('automation')); 
$command->addChild($userid); 

$root->addChild ($command); 


$ociRequest->setDocumentElement($root); 

my $xml = $ociRequest->toString; 

Answer 1

从的Perldoc：

$element = $dom->createElementNS($namespaceURI, $qname); 

你需要在创建元素指定的命名空间。