Question

我正在使用通過使用打開，打印，關閉的典型功能寫入XML文件的Perl程序。 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 ::作家
• XML ::簡單

Answer 2

我應該更努力搜索，Found the XML::Writer Here

來自這裏的問題：How can I create XML from Perl?‌​

塞巴斯蒂安施通普夫提醒我注意，

語法如下

#!/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> 

謝謝大家誰回答