从子例程中分配标量，该子例程在Perl中返回一个数组

Question

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

我知道如何在初始化一组标量时执行此操作：

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

但是我不确定如何使用同一组标量（因为我不能再使用'my'）：

($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();