Question

我对Perl和解除引用有一个奇怪的问题。

我有一个带有数组值的INI文件，在两个不同的部分，例如。

[Common]
animals =<<EOT
dog
cat
EOT

[ACME]
animals =<<EOT
cayote
bird
EOT

我有一个子例程将INI文件读入％INI哈希并处理多行条目。

然后我使用$org变量来确定我们是使用公共数组还是使用特定的组织数组。

@array = @{$INI{$org}->{animals}} || @{$INI{Common}->{animals}};

'Common'数组运行正常，即如果$org除了'ACME'之外什么都没有，我得到了值（狗猫）但是如果$org等于'ACME'，我得到的值为2回来？

任何想法??

Answer 1

Derefencing数组当然不会强制标量上下文。但使用||是。因此，$val = $special_val || "the default";之类的工作正常，而您的示例却没有。

因此@array将包含单个数字（第一个数组中的元素数），如果为0，则包含第二个数组的元素。

perlop perldoc页面甚至特别列出了这个例子：

In particular, this means that you shouldn't use this for selecting
between two aggregates for assignment:

    @a = @b || @c;              # this is wrong
    @a = scalar(@b) || @c;      # really meant this
    @a = @b ? @b : @c;          # this works fine, though

根据您的需要，解决方案可能是：

my @array = @{$INI{$org}->{animals}}
   ? @{$INI{$org}->{animals}}
   : @{$INI{Common}->{animals}};

Perl：解除引用数组正在使用标量上下文？

1 个答案: