我试图创建一个动态下拉菜单,在脚本启动时从xml文件中接收其条目。首先,我尝试了一个静态版本,像这样:
Tr(td([popup_menu( -name=>'betreff', -values=>[optgroup(-name=>'Mädels',
-values=>['Susi','Steffi',''], -labels=>{'Susi'=>'Petra','Steffi'=>'Paula'})
,optgroup(-name=>'Jungs', -values=>['moe', 'catch',''])])]));
运行良好。
当我尝试将popup_menu的-values-参数放入标量变量时,问题开始了。应该看起来和那个相似:
$popup_values = "[optgroup(-name=>'Mädels', -values=>['Susi','Steffi',''],
-labels=>{'Susi'=>'Petra','Steffi'=>'Paula'}),optgroup(-name=>'Jungs',
-values=>['moe', 'catch',''])]"
或加单引号
的目标是通过连接xml文件中经过语法校正的元素来构建该字符串。这是因为我不知道先验地有多少optgroup或optgroups中的列表元素将存在。任何想法?
提前谢谢
Jochen
你有一个XML文件用来生成字符串?为什么不直接生成popup_menu
调用所需的数据结构?它只是一个数组(您可以在"分析"XML文件时调用optgroup
)
如果你真的想使用字符串解决方案,那么你可以使用eval将字符串转换为数据结构。虽然这个解决方案有一定的安全问题。
读取xml文件
下面是一个如何将XML转换为optgroup的示例,这当然取决于您的XML文件的外观。
use strict;
use warnings;
use XML::Simple;
use CGI qw/:standard/;
my $xmlString = join('', <DATA>);
my $xmlData = XMLin($xmlString);
my @popup_values;
foreach my $group (keys(%{$xmlData->{group}})) {
my (@values, %labels);
my $options = $xmlData->{group}->{$group}->{opt};
foreach my $option (keys(%{$options})) {
push @values, $option;
if(exists($options->{$option}->{label}) &&
'' ne $options->{$option}->{label}) {
$labels{$option} = $options->{$option}->{label};
}
}
push @popup_values, optgroup(-name => $group,
-labels => %labels,
-values => @values
);
}
print popup_menu(-name=>'betreff', -values=> @popup_values);
__DATA__
<?xml version="1.0" encoding="UTF-8" ?>
<dropdown>
<group name="Mädels">
<opt name="Susi" label="Petra"/>
<opt name="Steffi" label="Paula"/>
<opt name="" />
</group>
<group name="Jungs">
<opt name="moe" />
<opt name="catch" />
<opt name="" />
</group>
</dropdown>