如何在Perl XS中处理哈希值类型

发布时间：2020-12-15 21:44:25 所属栏目：大数据来源：网络整理

导读：我需要处理哈希值取决于值类型.这是有问题的代码： I32 keys = hv_iterinit(hash);for (I32 i = 0; i keys; i++){ char *key = NULL; I32 key_length = 0; SV *value = hv_iternextsv(hash,key,key_length); // SvROK(value); if (SvTYPE(SvRV(value)) SVt_P

我需要处理哈希值取决于值类型.这是有问题的代码：

I32 keys = hv_iterinit(hash);
for (I32 i = 0; i < keys; i++)
{
  char *key = NULL;
  I32 key_length = 0;
  SV *value = hv_iternextsv(hash,&key,&key_length);
  // SvROK(value);
  if (SvTYPE(SvRV(value)) < SVt_PVAV)
  {
    // handle scalar
    printf("key %s has scalar valuen",key);
  }
  else if (SvTYPE(SvRV(value)) == SVt_PVAV)
  {
    // handle array
    printf("key %s has array valuen",key);
  }
  else if (SvTYPE(SvRV(value)) == SVt_PVHV)
  {
    // handle hash
    printf("key %s has hash valuen",key);
  }
}

如果我不使用注释行,我的标量值有问题.例如,使用以下哈希{a => “b”,c => {d => “e”}}产生输出：

key c has hash value
key d has scalar value

所以这是我的问题：

>我们总是从hv_iternextsv()返回引用,有时它返回标量？
>为什么我没有看到键a的标量值输出.

更新.

我的错误在于使用hv_iternextsv()的结果.我以为这总是一个参考.以下是工作代码的外观：

I32 keys = hv_iterinit(hash);
for (I32 i = 0; i < keys; i++)
{
  char *key = NULL;
  I32 key_length = 0;
  SV *value = hv_iternextsv(hash,&key_length);
  if (!SvROK(value))
  {
    // handle scalar
  }
  else
  {
    if (SvTYPE(SvRV(value)) == SVt_PVAV)
    {
      // handle array
    }
    else if (SvTYPE(SvRV(value)) == SVt_PVHV)
    {
      // handle hash
    }
  }
}

解决方法

Do we always have reference returned from hv_iternextsv() or sometimes it returns scalar?

它总是返回一个标量.哈希值只能是标量.这些标量可以是引用($h {x} = [];),但不必是($h {y} = 123;).

Why I don’t see scalar value output for key a.

你无法回复你所说的那样,因为你的哈希没有名为d的键.对于您提供的哈希,您的代码输出以下内容：

key a has scalar value
key c has hash value

但是,除了得到正确答案之外,其他任何事情都是巧合. SvTYPE(SvRV(值))当值不是引用时???这是没有意义的！固定代码如下：

use strict;
use warnings;

use Inline C => <<'__EOI__';

  void print_keys(HV* hash) {
    char *key;
    I32 key_length;
    SV *value;

    hv_iterinit(hash);
    while (value = hv_iternextsv(hash,&key_length)) {
      if (SvROK(value)) {
        SV * const referenced = SvRV(value);
        if (SvTYPE(referenced) == SVt_PVAV) {
          printf("The value at key %s is reference to an arrayn",key);
        }
        else if (SvTYPE(referenced) == SVt_PVHV) {
           printf("The value at key %s is a reference to a hashn",key);
        }
        else {
           printf("The value at key %s is a referencen",key);
        }
      } else {
        printf("The value at key %s is not a referencen",key);
      }
    }
  }

__EOI__

print_keys({a => "b",c => {d => "e"}});

输出：

The value at key a is not a reference
The value at key c is a reference to a hash

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!