Perl-在密钥匹配时打印哈希值

Question

我试图在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}); 
    } 
} 

可能是什么原因？谢谢 ！

Answer 1

my $value = @_; 

这将使的@_元素的数量$value - 评估在标量上下文列表返回元素的个数。

你可以用这个来代替：

my ($value) = @_; 

Answer 2

可能是 我的$值=移位;

@_在上下文标量中返回@_包含的项目或元素的数量。

这里的参考：http://perlmaven.com/scalar-and-list-context-in-perl