Perl技术问询：如何结合Hash Slices（哈希切片）使用grep筛选数据？

咱们先拆解下你代码里的两个核心问题，再给出正确的实现方式：

你当前代码的问题 #

1. 哈希切片完全用错了：你写的$hash{$_}{'age', 'BMI'}根本不是哈希切片语法——哈希切片需要在数组上下文里使用，也就是@{$hash{$_}}{'age', 'BMI'}。你当前的标量上下文写法，会把键列表('age', 'BMI')当成单个标量处理（Perl会取列表最后一个元素'BMI'），相当于只检查了BMI是否定义，完全没兼顾age，逻辑直接跑偏。
2. 哈希赋值逻辑错误：直接把grep返回的键列表赋值给%defined_patients，会生成一个键正确但值全是undef的哈希，而不是保留原哈希里的患者完整数据。

正确实现方式 #

方案1：用List::Util的all函数（简洁优雅） #

导入List::Util的all函数，可以一次性检查所有指定键是否都已定义，代码更简洁：

use DDP;
use List::Util qw(all);

my %hash = (
    'a' => { 'age' => 9, 'BMI' => 20 },
    'b' => { 'age' => 8 }
);

# 定义需要检查的必填参数
my @required_fields = qw(age BMI);

# 筛选出所有必填参数都已定义的条目，并保留原数据
my %defined_patients = map { $_ => $hash{$_} }
                       grep { all { defined $hash{$_}{$_} } @required_fields }
                       keys %hash;

p %defined_patients;

运行后会正确返回：{ a => { age => 9, BMI => 20 } }

方案2：手动判断所有键（无需额外模块） #

如果不想引入外部模块，直接用逻辑与（&&）逐个判断必填键即可：

use DDP;

my %hash = (
    'a' => { 'age' => 9, 'BMI' => 20 },
    'b' => { 'age' => 8 }
);

my %defined_patients = map { $_ => $hash{$_} }
                       grep { defined $hash{$_}{'age'} && defined $hash{$_}{'BMI'} }
                       keys %hash;

p %defined_patients;

这个写法逻辑更直观，适合不想依赖额外模块的场景。

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