perl 第一个建立xml文档

 

使用xml—writer

#!c:/perl/bin/
use XML::Writer;
use IO;
#open file stream .Param is file name.
my $output = new IO::File(">output.xml");
  #new a output stream.
  my $writer = new XML::Writer(OUTPUT => $output)
      or die"create fail";
    print "file create success!";
    #seting xml encoding . version is 1.0.
    $writer->xmlDecl("GB2312");
    #seting enter
    $writer->setDataIndent("/n");
    #seting first class start tag
    $writer->startTag("root");
    #fill in /n
    $writer->characters("/n");
    #seting seconly class start tag
    $writer->startTag("child");
    #seting  third class start tag
    $writer->dataElement("count","123");
    $writer->dataElement("name","sss");
    #seting seconly class end tag
    $writer->endTag("child");
    $writer->characters("/n");
    $writer->startTag("child");
    $writer->dataElement("count","123");
    $writer->dataElement("name","sss");
    $writer->endTag("child");
    $writer->characters("/n");
    #seting first class end tag
    $writer->endTag("root");
  #close writer stream
  $writer->end();
#close output stream
$output->close();