在 perl 中编写和读取 XML 的最佳方法是什么？

Question

我正在使用 Perl 程序，这些程序仅通过使用典型的函数打开、打印、关闭来写入 XML 文件。 XML 文件稍后会被 PHP Web 应用程序消化。

#!/usr/bin/perl
#opening file
open FILE, ">derp.xml" or die $!;

#data is created in variables like so...
$first       = '<\?xml version=\"1.0\" encoding=\"UTF-8\" \?>';
$openperson  = '<person>\n';
$name        = '<name>Gary</name>\n';
$birthday    = '<brithday>01/10/1999</birthday>\n';
$car         = '<car>minivan</car>\n';
$closeperson = '</person>\n';

#writing variables to file
print FILE $first;
print FILE $openperson;
print FILE $name;
print FILE $birthday;
print FILE $car;
print FILE $closeperson;
close FILE;

这基本上是当前系统的工作方式。我相信一定有更好的方法。

Answer 1

关于这些 CPAN 模块的情况：

• XML::LibXML
• XML::Writer
• XML::简单

Answer 2

我应该更加努力地搜索，Found the XML::Writer Here

从这里的问题：How can I create XML from Perl?‌​

Sebastian Stumpf 引起了我的注意，

语法如下

 #!/usr/bin/perl

 use IO;
 my $output = new IO::File(">derp.xml");

 use XML::Writer;
 my $writer = new XML::Writer( OUTPUT => $output );

 $writer->xmlDecl( 'UTF-8' );
 $writer->startTag( 'person' );
 $writer->startTag( 'name' );
 $writer->characters( "Gary" );
 $writer->endTag(  );
 $writer->startTag( 'birthday' );
 $writer->characters( "01/10/1909" );
 $writer->endTag(  );
 $writer->startTag( 'car' );
 $writer->characters( "minivan" );
 $writer->endTag(  );
 $writer->endTag(  );
 $writer->end(  );

生产：

  <?xml version="1.0" encoding="UTF-8"?>
  <person>
      <name>Gary</name>
      <birthday>01/10/1909</birthday>
      <car>minivan</car>
  <person>

感谢所有回答的人