如何从哈希中删除未定义的键？

Question

尝试使用 map 和 grep 来解决这个问题，知道出了什么问题吗？我不断收到 新哈希值时，出现“严格引用”时无法使用字符串（“10”）作为哈希引用错误

sub scrub_hash{
    my($self,$hash_ref) = @_;
    my $scrubbed_hash = map { defined $hash_ref->{$_} ? ($_ => $hash_ref->{$_}) : () } keys %{$hash_ref};   
    print STDERR "[scrub]". $_."\n"  for values %{$scrubbed_hash};
}   

当我尝试打印此处使用的 ...

my $params_hash = $cgi->Vars();
my $scrubbed = $self->scrub_empty_params($params_hash) if $self->is_hash($params_hash);

在这种情况下，通过帖子提交表单时未定义的参数仍然显示为 key1=&key2= 所以擦洗将它们去掉

Answer 1

在此行中：

my $scrubbed_hash = map { defined $hash_ref->{$_} ? ($_ => $hash_ref->{$_}) : () } keys %{$hash_ref};   

您正在将 map 中的列表分配到标量 $scrubbed_hash 中。标量上下文中的 map 将返回列表中的元素数量 (10)。

不要分配给标量，而是分配给复数哈希：

sub scrub_hash{
    my($self,$hash_ref) = @_;
    my %scrubbed_hash = map { defined $hash_ref->{$_} ? ($_ => $hash_ref->{$_}) : () } keys %{$hash_ref};   
    print STDERR "[scrub]". $_."\n"  for values %scrubbed_hash;
}   

如果您确实想为 $scrubbed_hash 使用标量，则需要使用 {map {...} args} 将从列表中构造一个匿名散列。

要过滤掉适当的元素，您可以使用 delete 函数：

my %hash = (foo => 1, bar => undef, baz => 2);

defined $hash{$_} or delete $hash{$_} for keys %hash;

print join ', ' => keys %hash;  # foo, baz

---

根据更新：

scrub_empty_params 方法应如下所示：

sub scrub_empty_params {
    my ($self, $hash) = @_;
    {map {defined $hash{$_} ? ($_ => $hash{$_}) : ()} keys %$hash}
}

如果这不适合您，那么您的值可能已定义，但长度为 0。

sub scrub_empty_params {
    my ($self, $hash) = @_;
    {map {(defined $hash{$_} and length $hash{$_}) ? ($_ => $hash{$_}) : ()} keys %$hash}
}

您可能希望通过创建一个不同的 ->Vars() 方法来从 API 中删除一些样板文件，该方法返回过滤后的哈希值：

sub clean_vars {
    my ($self) = @_;
    $self->scrub_empty_params($self->Vars)
}

Answer 2

试试这个：

    my %scrubbed_hash = map { $_ => $hash_ref->{ $_ } } grep { defined $hash_ref->{$_} } keys %{$hash_ref};