gpt4 book ai didi

xml - 如何在 Perl 中创建 XML 模板?

转载 作者:数据小太阳 更新时间:2023-10-29 02:47:37 25 4
gpt4 key购买 nike

我需要创建的 XML 文件是这样的

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

我不想使用多个打印来创建所需的 XML 文件,我希望有一个模板,它定义了 XML 的结构和格式。

然后在创建 XML 文件时,我只需要为模板中的变量提供实际值,并将指定的模板写入新创建的文件一次,仅一次。

最佳答案

使用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>

关于xml - 如何在 Perl 中创建 XML 模板?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1305749/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com