http://qs321.pair.com?node_id=747794


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;

[download]

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..."/>

    [download]
    I would have thought that it would have given me something like this: 
    <JOB NAME="Name">
      <DESC>Description</DESC>
      <DATA>Data</DATA>
      ......
</JOB>

    [download]
    ...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!
[reply]
[d/l]
[select]
      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');

      [download]
      Which produces: 
      <JOB NAME="a job name" NUM="a number">
  <DESC>a description</DESC>
  <DESC>another description</DESC>
</JOB>

      [download]
      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) ;

      [download]
      This code will nest the description as an element. Results: 
      <JOB NAME="a job name" NUM="a number">
  <DESC>a description</DESC>
</JOB>

      [download]
[reply]
[d/l]
[select]
        That worked beautifully. I appreciate the help!
[reply]

In Section Seekers of Perl Wisdom