arrays - 从 Perl 中返回数组的子例程分配标量

Question

我有一个 Perl 子例程，它返回一个值数组，我想调用该子例程并在单个标量变量中捕获这些值。

我知道在初始化一组标量时如何做到这一点：

my ($workBenchId, $woId, $woTrayId, $trayId, $customerNumber) = SubRoutineA();

但我不确定如何使用同一组标量来做到这一点（因为我不能再次使用“我的”）：

($workBenchId, $woId, $woTrayId, $trayId, $customerNumber) = SubRoutineA();

感谢您的帮助 - 我是 Perl 的新手。

Answer 1

你完全正确。

($workBenchId, $woId, $woTrayId, $trayId, $customerNumber) = SubRoutineA();

那似乎不起作用？

Answer 2

或者，您可以先定义变量，然后在不使用它们的情况下使用它们my：

my ($workBenchId, $woId, $woTrayId, $trayId, $customerNumber);
...
($workBenchId, $woId, $woTrayId, $trayId, $customerNumber) = SubRoutineA(); 
...
($workBenchId, $woId, $woTrayId, $trayId, $customerNumber) = SubRoutineA(); 
...
($workBenchId, $woId, $woTrayId, $trayId, $customerNumber) = SubRoutineA();