Perl哈希数组删除键后如何移除遗留的空哈希（{}）

你可以通过两种方式移除处理后遗留的空哈希：

方法一：处理后过滤数组 #

先执行你现有的删除逻辑，再用grep过滤掉数组中没有任何键的空哈希：

foreach (@{ $names}) {
    if ($_->{name} =~ /[^\w+]/ ) {
        print "Deleting $_->{name} due to non-standard characters\n";
        delete $_->{name};
    }
}
# 过滤空哈希
$names = [ grep { scalar keys %$_ } @$names ];

scalar keys %$_会返回哈希中键的数量，空哈希返回0，在grep中会被判定为假，从而被过滤掉。

方法二：直接筛选符合条件的元素（更高效） #

不用先删除键再过滤，直接保留符合规则的哈希，一步到位：

$names = [
    grep {
        my $name = $_->{name};
        if ($name =~ /[^\w]/) { # 这里建议修正正则，原/[^\w+]/可能不符合你的真实需求
            print "Deleting $name due to non-standard characters\n";
            0; # 不保留该元素
        } else {
            1; # 保留该元素
        }
    } @$names
];

注意正则表达式的问题 #

你原代码中的/[^\w+]/逻辑是：匹配包含**不是单词字符（\w，即字母、数字、下划线）也不是+**的字符。如果你的需求是只允许字母、数字和下划线，应该改为/[^\w]/（匹配存在非单词字符的情况），或者严格匹配整个字符串都为单词字符：/^\w+$/，避免误判合法/非法字符。

内容的提问来源于stack exchange，提问作者user3551277