如何在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 

因此，这里是我的问题：

1. 难道我们总是从hv_iternextsv()返回的引用，有时它返回标？
2. 为什么我看不到关键字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