如何在Perl中創建XML模板？

Question

我需要創建XML文件是像

<file> 
    <state>$state</state> 
    <timestamp>$time</timestamp> 
    <location>$location</location> 
      .... 
</file> 

我不想使用幾種打印，創建所需的XML文件，我很期待是有一個模板，它定義了結構和XML的格式。

然後，當創建XML文件時，我只需要提供模板中變量的實際值，並將指定的模板寫入新創建的文件一次，僅一次。

Answer 1

使用HTML::Template。

#!/usr/bin/perl 

use strict; 
use warnings; 

use HTML::Template; 

my $template_text = <<EO_TMPL; 
<TMPL_LOOP FILES> 
<file> 
    <state><TMPL_VAR STATE></state> 
    <timestamp><TMPL_VAR TIME></timestamp> 
    <location><TMPL_VAR LOCATION></location> 
</file> 
</TMPL_LOOP> 
EO_TMPL 

my $tmpl = HTML::Template->new(scalarref => \$template_text); 

$tmpl->param(
    FILES => [ 
    { state => 'one', time => 'two', location => 'three' }, 
    { state => 'alpha', time => 'beta', location => 'gamma' }, 
]); 

print $tmpl->output; 

輸出：

<file> 
    <state>one</state> 
    <timestamp>two</timestamp> 
    <location>three</location> 
</file> 

<file> 
    <state>alpha</state> 
    <timestamp>beta</timestamp> 
    <location>gamma</location> 
</file> 

Answer 2

cpan有幾個可以使用的XML模塊。

我的建議是你開始XML::Simple或XML::API

Answer 3

您可以使用Template::Toolkit做