perl - 你能在 Perl 中强制标量或数组引用成为数组吗？

Question

我有一个 perl 变量 $results从服务返回。该值应该是一个数组，并且 $results应该是一个数组引用。但是，当数组中只有一项时，$results将被设置为该值，而不是包含该一项的引用数组。

我想做一个foreach在预期数组上循环。无需检查ref($results) eq 'ARRAY' ，有什么办法可以得到相当于以下内容的东西:

foreach my $result (@$results) {
    # Process $result
}

该特定代码示例可以作为引用，但会提示简单的标量。

编辑:我应该澄清，我无法更改从服务返回的内容。问题是，当只有一个值时，该值将是一个标量，而当有多个值时，它将是一个数组引用。

Answer 1

我不确定除了以下方法之外还有什么其他方法:

$result = [ $result ]   if ref($result) ne 'ARRAY';  
foreach .....