在给定Perl中的部分键匹配的情况下，从多维散列中获取散列键

sub get_value_from_hash {
    my ($hash_ref, @keys) = @_;
    
    # 检查是否还有剩余的键
    if (@keys) {
        my $key = shift @keys;
        
        # 检查当前层级的散列中是否存在匹配的键
        if (exists $hash_ref->{$key}) {
            # 如果存在匹配的键，则递归调用该函数，传递下一层级的散列引用和剩余的键
            return get_value_from_hash($hash_ref->{$key}, @keys);
        } else {
            # 如果当前层级的散列中没有匹配的键，则返回 undef
            return undef;
        }
    } else {
        # 如果没有剩余的键，则返回当前层级的散列引用
        return $hash_ref;
    }
}

# 示例散列
my $hash = {
    'a' => {
        'b' => {
            'c' => 'value'
        }
    }
};

# 获取散列键
my $value = get_value_from_hash($hash, 'a', 'b', 'c');

# 打印结果
print $value;  # 输出：value