我有一个从服务返回的perl变量$ results。该值应该是一个数组，$ results应该是一个数组引用。但是，当数组中只有一个项目时，$ results将被设置为该值，而不是包含该项目的引用数组。
我想在预期的数组上做一个foreach循环。没有检查ref($ results)eq’ARRAY’，是否有任何方法可以获得与以下内容相同的内容：
foreach my $result (@$results) {
# Process $result
}
该特定的代码示例将用于引用，但将会为简单的标量提出抱怨。
编辑：我应该澄清一点，我无法改变从服务返回的内容。问题是，当只有一个值时，该值将是一个标量，当有多个值时它将是一个数组引用。
解决方法
我不知道有什么别的办法：
06000
