xmlgenerator.pl

来自「PERL语言资料 可以用于PERL程序设计」· PL 代码 · 共 27 行

#!/perl/bin/perl
# Fig. 22.28: xmlgenerator.pl
# Converting a comma separated list data source to XML.

use warnings;
use strict;

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

<?xml version = "1.0"?>
<?xml:stylesheet type = "text/xsl" href = "/contact_list.xsl"?>
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/