Styjun

Has the laser at Magurele, Romania reached a tenth of the Sun's power?

Why is the Sun approximated as a black body at ~ 5800 K?

How can ping know if my host is down

Is this part of the description of the Archfey warlock's Misty Escape feature redundant?

What is Cash Advance APR?

Why does AES have exactly 10 rounds for a 128-bit key, 12 for 192 bits and 14 for a 256-bit key size?

Doesn't the system of the Supreme Court oppose justice?

What is the English pronunciation of "pain au chocolat"?

I found an audio circuit and I built it just fine, but I find it a bit too quiet. How do I amplify the output so that it is a bit louder?

A variation to the phrase "hanging over my shoulders"

Can I cause damage to electrical appliances by unplugging them when they are turned on?

How does electrical safety system work on ISS?

Can I say "fingers" when referring to toes?

Delete multiple columns using awk or sed

What is the difference between lands and mana?

How to draw a matrix with arrows in limited space

Pre-mixing cryogenic fuels and using only one fuel tank

Why does Carol not get rid of the Kree symbol on her suit when she changes its colours?

Why is so much work done on numerical verification of the Riemann Hypothesis?

Is it necessary to use pronouns with the verb "essere"?

The Digit Triangles

C++ check if statement can be evaluated constexpr

Shouldn’t conservatives embrace universal basic income?

What kind of floor tile is this?

how can i create xml content/doc using perl module XML::LibXML

perl + DOM + use XML::LibXML + how to remove xml version title from XML file? with DOMHow Do You Parse and Process HTML/XML in PHP?Why does modern Perl avoid UTF-8 by default?using perl XML::LibXML to parseCan't load 'C:/strawberry/perl/site/lib/auto/XML/LibXML/LibXML.dll' for module XML::LibXMLParsing issue with xml: namespace attribute with Perl LibXMLInstalling XML::LibXML Perl module for ActiveState Perl Version 5.6.1 build 629Extract XML tag content in Perl using XML::LibXMLHow to get Encoding in xml file using libXML?perl XML::LibXML utf8 encoding

0

How can I generate the below xml content in perl using XML::LibXML

<?xml version="1.0" encoding="UTF-8"?>
<response status="Not Found">
 <errorcode>500</errorcode>
 <message>some message</message>
 <description>some description</description>
</response>

perl xml-parsing

share|improve this question

edited 14 hours ago

sudarsan

asked 14 hours ago

sudarsansudarsan

13

add a comment | 

0

How can I generate the below xml content in perl using XML::LibXML

<?xml version="1.0" encoding="UTF-8"?>
<response status="Not Found">
 <errorcode>500</errorcode>
 <message>some message</message>
 <description>some description</description>
</response>

perl xml-parsing

share|improve this question

edited 14 hours ago

sudarsan

asked 14 hours ago

sudarsansudarsan

13

add a comment | 

How can I generate the below xml content in perl using XML::LibXML

<?xml version="1.0" encoding="UTF-8"?>
<response status="Not Found">
 <errorcode>500</errorcode>
 <message>some message</message>
 <description>some description</description>
</response>

perl xml-parsing

share|improve this question

edited 14 hours ago

sudarsan

asked 14 hours ago

sudarsansudarsan

13

<?xml version="1.0" encoding="UTF-8"?>
<response status="Not Found">
 <errorcode>500</errorcode>
 <message>some message</message>
 <description>some description</description>
</response>

share|improve this question

edited 14 hours ago

sudarsan

asked 14 hours ago

sudarsansudarsan

13

share|improve this question

edited 14 hours ago

sudarsan

asked 14 hours ago

sudarsansudarsan

13

asked 14 hours ago

sudarsansudarsan

13

asked 14 hours ago

sudarsansudarsan

13

1 Answer
1

active

oldest

votes

0

Something like that

use XML::LibXML;

my $doc = XML::LibXML->createDocument( "1.0", "UTF-8" );
my $root = $doc->createElement("response");
$root->setAttribute('status'=> 'Not Found');

my %tags = (
 errorcode => 500,
 message => 'some message',
 description => 'some description',
);

for my $name (keys %tags) 
 my $tag = $doc->createElement($name);
 my $value = $tags$name;
 $tag->appendTextNode($value);
 $root->appendChild($tag);


$doc->setDocumentElement($root);
print $doc->toString(2); # <= XML indentation

share|improve this answer

edited 14 hours ago

answered 14 hours ago

Phx DevPhx Dev

1137

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55280110%2fhow-can-i-create-xml-content-doc-using-perl-module-xmllibxml%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

0

Something like that

use XML::LibXML;

my $doc = XML::LibXML->createDocument( "1.0", "UTF-8" );
my $root = $doc->createElement("response");
$root->setAttribute('status'=> 'Not Found');

my %tags = (
 errorcode => 500,
 message => 'some message',
 description => 'some description',
);

for my $name (keys %tags) 
 my $tag = $doc->createElement($name);
 my $value = $tags$name;
 $tag->appendTextNode($value);
 $root->appendChild($tag);


$doc->setDocumentElement($root);
print $doc->toString(2); # <= XML indentation

share|improve this answer

edited 14 hours ago

answered 14 hours ago

Phx DevPhx Dev

1137

add a comment | 

0

Something like that

use XML::LibXML;

my $doc = XML::LibXML->createDocument( "1.0", "UTF-8" );
my $root = $doc->createElement("response");
$root->setAttribute('status'=> 'Not Found');

my %tags = (
 errorcode => 500,
 message => 'some message',
 description => 'some description',
);

for my $name (keys %tags) 
 my $tag = $doc->createElement($name);
 my $value = $tags$name;
 $tag->appendTextNode($value);
 $root->appendChild($tag);


$doc->setDocumentElement($root);
print $doc->toString(2); # <= XML indentation

share|improve this answer

edited 14 hours ago

answered 14 hours ago

Phx DevPhx Dev

1137

add a comment | 

Something like that

use XML::LibXML;

my $doc = XML::LibXML->createDocument( "1.0", "UTF-8" );
my $root = $doc->createElement("response");
$root->setAttribute('status'=> 'Not Found');

my %tags = (
 errorcode => 500,
 message => 'some message',
 description => 'some description',
);

for my $name (keys %tags) 
 my $tag = $doc->createElement($name);
 my $value = $tags$name;
 $tag->appendTextNode($value);
 $root->appendChild($tag);


$doc->setDocumentElement($root);
print $doc->toString(2); # <= XML indentation

share|improve this answer

edited 14 hours ago

answered 14 hours ago

Phx DevPhx Dev

1137

use XML::LibXML;

my $doc = XML::LibXML->createDocument( "1.0", "UTF-8" );
my $root = $doc->createElement("response");
$root->setAttribute('status'=> 'Not Found');

my %tags = (
 errorcode => 500,
 message => 'some message',
 description => 'some description',
);

for my $name (keys %tags) 
 my $tag = $doc->createElement($name);
 my $value = $tags$name;
 $tag->appendTextNode($value);
 $root->appendChild($tag);


$doc->setDocumentElement($root);
print $doc->toString(2); # <= XML indentation

share|improve this answer

edited 14 hours ago

answered 14 hours ago

Phx DevPhx Dev

1137

answered 14 hours ago

Phx DevPhx Dev

1137

answered 14 hours ago

Phx DevPhx Dev

1137