我正在尝试使用 Perl 代码中的 html 标签打印一些哈希值。但我得到的不是价值观,而是1
. 当我尝试在内部打印哈希值时会发生这种情况sub
。这是正确的方法吗?
package shembull;
%rhash= (
lbl_name => "L",
lbl_surname => "G",
txt_nameemri => "N",
txt_surname => "M",
btn_submit => "submit",
);
sub lbl_input {
my $value = @_;
return "<label>".$value."</label>";
}
sub txt_input {
my $value = @_;
return "<textarea>".$value."</textarea>";
}
sub btn_input {
my $value = @_;
return"<button>".$value."</button>";
}
foreach my $tmp (keys %rhash){
if($tmp =~/lbl/){
print lbl_input ($rhash{$tmp});
}
elsif($tmp =~/txt/){
print txt_input ($rhash{$tmp});
}
elsif($tmp =~/btn/){
print btn_input ($rhash{$tmp});
}
}
可能是什么原因?谢谢 !