perl在一行上声明多个变量

Question

我发现我可以在一个语句中声明两个变量：

my ($a,$b)=(1,2);

但我认为这种语法可能会令人困惑，例如，如果我们有五个变量声明，则很难看出哪个值属于哪个变量。所以我认为如果我们可以使用这种语法会更好：

my $a=1, $b=2;

我想知道，为什么这种声明在 Perl 中是不可能的？还有其他选择吗？

（我试图避免为每个声明重复my，例如：my $a=1; my $b=2;）

Answer 1

没有。 my 声明的变量只有在下一条语句开始时才会被命名。您可以分配给新创建的变量的唯一方法是分配给它返回的变量。将my 视为同样声明的new。

至于您的特定代码，

my $a=1, $b=2;

意思

((my $a)=1), ($b=2);

显然，不好。

如果您使用了尚未声明的变量^[1]，则会收到严格错误。

---

1. $a 和 $b 在每个命名空间中都预先声明，以方便 sort 的使用。

Answer 2

我是 Perl 的新手，但我会告诉你到目前为止我学到了什么。

我将改为使用$start 和$end 而不是$a 和$b，因为$a 和$b 是始终声明的特殊变量。

要回答您最初的问题，您可以在一行中声明和分配多个变量，如下所示：

my ($start, $end) = (1, 2);

就我个人而言，我发现这几乎是相同的输入，但不如将每个输入放在单独的行上清晰：

my $start = 1;
my $end = 2;

但是，我认为将子程序参数分配给命名变量很有用，因为子程序参数位于一个名为 @_ 的列表中：

use strict;

sub print_range {
    my ($start, $end) = @_;
    print "Range is from $start to $end.\n";
}

print_range(10, 20); # => Range is from 10 to 20.

您可以在the documentation 中看到my 语句的更多怪癖，包括忽略列表中某些值的方法。

Answer 3

下面是perl在一行中声明多个变量的方法：

my ($day, $mon, $year, $hr, $min, $sec) = (0) x 6;

这里，上面所有的变量都被初始化为0。使用了重复运算符'x'。

Answer 4

对于变量声明，我认为my ($a,$b)=(1,2);，正如所指出的，绝对足够了。

但是对于哈希值初始化，你可以使用这个语法...

my $stuff = {};

$stuff->{hello} = $stuff->{thing} = 123;

print(Dumper($stuff));

这里的结果将是……

$VAR1 = {
      'hello' => 123,
      'thing' => 123
};

这很简洁，因为您可以将不同数组的不同键初始化为相同的值。

您只能对每个值使用相同的值，但这对于哈希初始化来说可能是完美的。

Answer 5

我采用了这种方法。

map { ($_) = '' } my ($x, $y, $z);

用 0 替换数字的 ''。

你不需要计算任何东西。

我把 $_ 放在 () 中是为了让 perlcritic 误以为我知道我在做什么 :)

我能想到的对变量值使用此方法的唯一方法是执行以下操作：-

my @v = (1,23,'Bill',41);
map {($_) = shift @v} my ($x,$y,$r,$s);

或者如果已经定义了一些：-

my $x = 7;
my @v = (1,23,'Bill',41);
map {($_) = shift @v} ($x,my ($y,$r,$s));

Answer 6

为了避免在这些情况下混淆，通常可以这样做：

my ($a, $b, $c, $d) = (
  1,  # => $a
  2,  # => $b
  3,  # => $c
  4   # => $d
);

根据KISS principle.

---

ikegami 指出替代方案是：

my $a = 1;
my $b = 2;
my $c = 3;
my $d = 4;