如何同时定义和初始化几个词法变量？

Question

我正在学习如何使用Perl，我正在尝试不同的方法。我知道这是错的，但我需要知道为什么以及如何使用类似的方法来分配词法变量。非常感谢您的协助。

 #Set vars 
   my (
   $TIMESTAMP      = strftime("%Y%M%d%H%M%S", localtime),
   $SourceDir      = 'C:\Documents\Source_Dir',
   $destinationDir = 'C:\Documents\$website'
   );

Answer 1

使用列表赋值，其中包含赋值运算符左侧的所有变量以及右侧的所有值：

my( $TIMESTAMP, $SourceDir, $destinationDir ) = (
   strftime("%Y%M%d%H%M%S", localtime),
   'C:\Documents\Source_Dir',
   'C:\Documents\$website'
   );

或者，一个接一个地做。