大佬教程收集整理的这篇文章主要介绍了如何在Perl XS中处理哈希值类型,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
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_length); if (!SvROK(value)) { // handle scalar } else { if (SvTYPE(SvRV(value)) == SVt_PVAV) { // handle array } else if (SvTYPE(SvRV(value)) == SVt_PVHV) { // handle hash } } }
它总是返回一个标量.哈希值只能是标量.这些标量可以是引用($h {x} = [];),但不必是($h {y} = 123;).
你无法回复你所说的那样,因为你的哈希没有名为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 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中处理哈希值类型全部内容,希望文章能够帮你解决如何在Perl XS中处理哈希值类型所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。