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