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()返回引用，有时它会返回标量？
为什么我没有看到键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

我们是否始终从hv_iternextsv()返回引用或有时返回标量？

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

为什么我没有看到关键字a的标量值输出。

由于您的哈希没有名为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

输出：

<ul class="nav nav-tabs">
    <li class="rounded active"><a href="#">Home</a></li>
    <li class="rounded"><a href="#">Bio</a></li>
    <li class="rounded"><a href="#">Links</a></li>
    <li class="rounded"><a href="#">Gallery</a></li>
</ul>

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

1 个答案: