43 lines
737 B
Perl
43 lines
737 B
Perl
|
#!/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
|