Question

perl 脚本出错must be hash or array，本人没学过perl，所以请高手指教。详细见补充。

部分脚本：初步判断应该是 foreach my $param (keys $HTTP->{'param'}) 出了问题。使用的是perl5.14.2

our @EXPORT = qw(
$files $index $config
$HTTP
$pathname $releaseid $identifier
&warning &fatal
&fflush
&urlargs &nonvarargs &fileref &diffref &idref &incref
&httpinit &httpclean
)

our $HTTP;

sub nonvarargs {
my @args;

foreach my $param (keys $HTTP->{'param'}) {
next unless $param =~ m!^_!;
my $val = $HTTP->{'param'}->{$param};
if (length($val)) {
push(@args, "$param=$HTTP->{'param'}->{$param}");
}
}

return @args;
}

错误信息：
Type of arg 1 to keys must be hash or array (not hash element) at new line 16, near "}) "

Answer 1

foreach my $param (keys $HTTP->{'param'}) {
括号里面必须是哈希或者数组，数组是@开头，哈希是%开头
看你的脚本，里面应该是数组

追问

那该怎么改呢，我这是从lxr里面安装perl脚本里面节选的，总是运行出错，但是没学过perl，所以不知怎么解决，求指导，如能解决，定加分感谢

追答

你的foreach要遍历哪个变量？
foreach my $param (keys @($HTTP->{'param'})) {
或者
foreach my $param (keys %{$HTTP->{'param'}}) {
都试试

Answer 2

foreach my $param (keys $HTTP->{'param'}) {
next unless $param =~ m!^_!;
my $val = $HTTP->{'param'}->{$param};
从上面可以看出， $HTTP->{'param'} 实际是一个哈希，可以改成 keys %{$HTTP->{'param'}}