Building an XML Document

Demonstrates how to build the following XML document:

<accrep:AccidentReport>
  <accrep:VehicleSection>
    <accrep:Vehicle>
      <accrep:DriverOrPedestrian>D</accrep:DriverOrPedestrian>
      <accrep:Number>1</accrep:Number>
      <accrep:Name>
        <accrep:First>John</accrep:First>
        <accrep:Last>Doe</accrep:Last>
        <accrep:Middle>Robert</accrep:Middle>
      </accrep:Name>
      <accrep:Passengers>
        <accrep:Name>
          <accrep:First>John</accrep:First>
          <accrep:Last>Doe, Jr.</accrep:Last>
          <accrep:Middle>Robert</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
      <accrep:Passengers>
	  <accrep:Name>
          <accrep:First>Sally</accrep:First>
          <accrep:Last>Doe</accrep:Last>
          <accrep:Middle>Crystal</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
    </accrep:Vehicle>
    <accrep:Vehicle>
      <accrep:DriverOrPedestrian>D</accrep:DriverOrPedestrian>
      <accrep:Number>2</accrep:Number>
      <accrep:Name>
        <accrep:First>John</accrep:First>
        <accrep:Last>Public</accrep:Last>
        <accrep:Middle>Q</accrep:Middle>
      </accrep:Name>
      <accrep:Passengers>
        <accrep:Name>
          <accrep:First>Billy</accrep:First>
          <accrep:Last>Public</accrep:Last>
          <accrep:Middle>Bob</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
      <accrep:Passengers>
	  <accrep:Name>
          <accrep:First>Kelly</accrep:First>
          <accrep:Last>Public</accrep:Last>
          <accrep:Middle>Emily</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
    </accrep:Vehicle>
  </accrep:VehicleSection>
</accrep:AccidentReport>

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$xml1 = new chilkat::CkXml();
$xml1->put_Tag("accrep:AccidentReport");

# xml2 is a CkXml
$xml2 = $xml1->NewChild("accrep:VehicleSection","");

# xml3 is a CkXml
$xml3 = $xml2->NewChild("accrep:Vehicle","");
$xml3->NewChild2("accrep:DriverOrPedestrian","D");
$xml3->NewChild2("accrep:Number","1");

# xml6 is a CkXml
$xml6 = $xml3->NewChild("accrep:Name","");
$xml6->NewChild2("accrep:First","John");
$xml6->NewChild2("accrep:Last","Doe");
$xml6->NewChild2("accrep:Middle","Robert");

# xml10 is a CkXml
$xml10 = $xml3->NewChild("accrep:Passengers","");

# xml11 is a CkXml
$xml11 = $xml10->NewChild("accrep:Name","");
$xml11->NewChild2("accrep:First","John");
$xml11->NewChild2("accrep:Last","Doe, Jr.");
$xml11->NewChild2("accrep:Middle","Robert");

# xml15 is a CkXml
$xml15 = $xml3->NewChild("accrep:Passengers","");

# xml16 is a CkXml
$xml16 = $xml15->NewChild("accrep:Name","");
$xml16->NewChild2("accrep:First","Sally");
$xml16->NewChild2("accrep:Last","Doe");
$xml16->NewChild2("accrep:Middle","Crystal");

# xml20 is a CkXml
$xml20 = $xml2->NewChild("accrep:Vehicle","");
$xml20->NewChild2("accrep:DriverOrPedestrian","D");
$xml20->NewChild2("accrep:Number","2");

# xml23 is a CkXml
$xml23 = $xml20->NewChild("accrep:Name","");
$xml23->NewChild2("accrep:First","John");
$xml23->NewChild2("accrep:Last","Public");
$xml23->NewChild2("accrep:Middle","Q");

# xml27 is a CkXml
$xml27 = $xml20->NewChild("accrep:Passengers","");

# xml28 is a CkXml
$xml28 = $xml27->NewChild("accrep:Name","");
$xml28->NewChild2("accrep:First","Billy");
$xml28->NewChild2("accrep:Last","Public");
$xml28->NewChild2("accrep:Middle","Bob");

# xml32 is a CkXml
$xml32 = $xml20->NewChild("accrep:Passengers","");

# xml33 is a CkXml
$xml33 = $xml32->NewChild("accrep:Name","");
$xml33->NewChild2("accrep:First","Kelly");
$xml33->NewChild2("accrep:Last","Public");
$xml33->NewChild2("accrep:Middle","Emily");

#  Display the XML:
print $xml1->getXml() . "\r\n";