#!/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/&/&/;
s/</</;
s/>/>/;
s/"/"/;
s/'/'/;
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
|