Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: How do you create sub-nodes with XML::Smart

by ramrod (Chaplain)
on Mar 03, 2009 at 16:41 UTC ( #747794=note: print w/ replies, xml ) Need Help??


in reply to How do you create sub-nodes with XML::Smart

Well first off, next time please consider using the code tags. It will help the appearance of your post.

Next, did you check out CPAN? Here I was able to find some sample code.

Looks like you should use something like

$XML->{JOB}{DESC}[0] = $desc;


Comment on Re: How do you create sub-nodes with XML::Smart
Download Code
Replies are listed 'Best First'.
Re^2: How do you create sub-nodes with XML::Smart
by Anonymous Monk on Mar 03, 2009 at 19:34 UTC
    Duly noted on the code tags. I did try the code you posted but it still have me this output:
    $XML->{JOB}{NAME} = $job_name; $XML->{JOB}{DESC}[0] = $desc; $XML->{JOB}{DATA}[0] = $data; $XML->{JOB}{WHO}[0] = $who; <JOB NAME="Jonname" DESC="Description" DATA="Data..."/>
    I would have thought that it would have given me something like this:
    <JOB NAME="Name"> <DESC>Description</DESC> <DATA>Data</DATA> ...... </JOB>
    ...but it did not. Any other ideas? I have definitely looked over the CPAN site and I didn't see anything that answered my question. Thanks!
      According to the CREATING XML DATAsection, this is the expected behavior.

      So something closer to what you are looking for is this:

      use strict; use XML::Smart; my $job_name = "a job name"; my $desc = "a description"; my $desc2 = "another description"; my $num = "a number"; my $XML = XML::Smart->new(); $XML->{JOB}{NAME}[0] = $job_name; $XML->{JOB}{DESC}[0] = $desc; $XML->{JOB}{DESC}[1] = $desc2; $XML->{JOB}{NUM}[0] = $num; $XML->save('output.xml');
      Which produces:
      <JOB NAME="a job name" NUM="a number"> <DESC>a description</DESC> <DESC>another description</DESC> </JOB>
      So the presence of multiple entries is what makes it a nested element. If this behavior is not what you desire, perhaps XML::Twig or XML::libXML would better work for you. I have got great results from libXML in the past. Update: I checked the tutorial and found what you're looking for.
      $XML->{JOB}{DESC}= $desc; $XML->{JOB}{DESC}->set_node(1) ;
      This code will nest the description as an element. Results:
      <JOB NAME="a job name" NUM="a number"> <DESC>a description</DESC> </JOB>
        That worked beautifully. I appreciate the help!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://747794]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2015-07-29 09:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (263 votes), past polls