Perl中的未定义数组

发布时间：2020-12-16 06:08:13 所属栏目：大数据来源：网络整理

导读：是否有可能以某种方式指示Perl中的数组是否未定义或为空？我发现自己遇到了一些情况,我希望能够区分一个空数组和一个尚未填充的数组(或由于某种原因未能填充). 例如,使用数组引用我可以这样做： my $apples;$apples = get_apples();if(defined $apples){if(s

是否有可能以某种方式指示Perl中的数组是否未定义或为空？我发现自己遇到了一些情况,我希望能够区分一个空数组和一个尚未填充的数组(或由于某种原因未能填充).

例如,使用数组引用我可以这样做：

my $apples;
$apples = get_apples();
if(defined $apples){

if(scalar @$apples == 0){
# We successfully got the list of apples,but there were none
}

}else{

# There was a problem getting the list of apples

}

我对此的唯一抱怨是“我的$apples”并没有告诉你$apples是一个数组引用,所以@apples会更具体.

它看起来没有办法明确地对数组做某事,是这样吗？是否总是需要另一个变量来指示阵列是否已成功填充？

my @apples;
(@apples) = get_apples();

永远无法测试苹果的成功回报,对吗？还是我错过了一些整洁的东西？

编辑：
我知道get_apples可以返回成功和列表来填充数组,但我很好奇是否有一种方法只用数组来指示null或undefined值.

解决方法

在Perl中,空数组和未初始化数组之间没有区别.

$perl -MDevel::Peek -e 'print Dump(@a)'
SV = RV(0x20033b00) at 0x20033af0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x20091830
  SV = PVAV(0x200350c0) at 0x20091830
    REFCNT = 2
    FLAGS = ()
    ARRAY = 0x0
    FILL = -1
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)

$perl -MDevel::Peek -e '@a=(); print Dump(@a)'
SV = RV(0x20033b00) at 0x20033af0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x20091818
  SV = PVAV(0x200350c0) at 0x20091818
    REFCNT = 2
    FLAGS = ()
    ARRAY = 0x0
    FILL = -1
    MAX = -1
    ARYLEN = 0x0
    FLAGS = (REAL)

您唯一的希望可能是检查内部AV对象的MAX属性,以查看用于包含任何数据的数组：

use B;
@b = ();
@c = (1..100); @c = ();
print B::svref_2object(@b)->MAX;      # -1
print B::svref_2object(@c)->MAX;      # 99

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!