The Loaded Uzi

        foreach $dataitem (@$array)
        {
           $keplerian_elements->appendChild($orbital_element);

           if($index == 0)
           {
             print "$dataitem ";
           }
           if($index == 1)
           {
             my $nasa_catalog_number = $xmldocument->createElement("nasa-catalog-number");
             $orbital_element->appendChild($nasa_catalog_number);
             $nasa_catalog_number->appendChild($xmldocument->createTextNode($dataitem));
           }
           elsif($index == 2)
           {
             ...

Next

Copyright © 2006 M. J. Dominus