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

Question

我需要根据值类型处理散列值。这是有问题的代码：

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 value\n", key);
  }
  else if (SvTYPE(SvRV(value)) == SVt_PVAV)
  {
    // handle array
    printf("key %s has array value\n", key);
  }
  else if (SvTYPE(SvRV(value)) == SVt_PVHV)
  {
    // handle hash
    printf("key %s has hash value\n", key);
  }
}

如果我不使用注释行，我就会遇到标量值问题。例如，使用以下散列 {a => "b", c => {d => "e"}} 会产生输出：

key c has hash value
key d has scalar value

所以这是我的问题：

我们是否总是从 hv_iternextsv() 或有时 returns 标量返回引用？
为什么我看不到键 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, &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
    }
  }
}

Answer 1

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

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

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

你不可能 return 你所说的那样，因为你的散列没有名为 d 的键。对于您提供的散列，您的代码输出如下：

key a has scalar value
key c has hash value

但你得到正确答案更像是一个巧合。 SvTYPE(SvRV(value)) 当 value 不是引用时？？？这是没有意义的！固定代码如下：

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, &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 array\n", key);
        }
        else if (SvTYPE(referenced) == SVt_PVHV) {
           printf("The value at key %s is a reference to a hash\n", key);
        }
        else {
           printf("The value at key %s is a reference\n", key);
        }
      } else {
        printf("The value at key %s is not a reference\n", 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

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

How to handle hash value type in Perl XS

perl

hash

perl-xs