Converting a comma separated list data source to XML : SAX « XML « Perl






  1. Perl
  2. XML
  3. SAX

Converting a comma separated list data source to XML

  

#!/perl/bin/perl


use warnings;
use strict;

print <<'HEADER';
Content-Type: text/xml

<?xml version = "1.0"?>
HEADER

print( "<contacts>\n\n" );

open( NAMES, "names.txt" ) or die ( "Error opening names.txt" );

while ( <NAMES> ) {
   chomp;

   # escape any characters not allowed in XML content.
   s/&/&amp;/;
   s/</&lt;/;
   s/>/&gt;/;
   s/"/&quot;/;
   s/'/&apos;/;
   
   my ( $last, $first ) = split( /, / );
   
   print( "   <contact>\n",
          "      <LastName>$last</LastName>\n",
          "      <FirstName>$first</FirstName>\n",
          "   </contact>\n\n" );
}

close( NAMES );

print( "</contacts>\n" );


#File: names.txt
#    Jack, John
#    Jason, Sue
#    Jodd, Bob








Related examples in the same category

1.Check error in SAX parser
2.Check node name in SAX paser
3.Register handlers to SAX parser
4.SAX parser handler
5.Stream XML::Parser
6.The XML::Parser module provides a framework for parsing XML.
7.Using XML::Parser to parse xml file
8.Using XML:Simple to read and store the document
9.XML::Parasr style: Tree