每次调用push()后添加索引

Question

我在数组上使用 Perl push，但每次我在数组上推送某些内容时，它也会推送该项目的索引。
我同时对 2 个数组执行相同的操作，其中一个按预期推送，但另一个则没有。
是什么导致了这种无法解释的行为？

if ($var->{color} == 1) {
    push @x, $var->{variable}.'-l';  
    push @y, $var->{variable}.'-p';
}
else {
    push @x, '__',
    push @y, '__',
}

y 具有预期的数据，但 x 没有。

Answer 1

你需要的是分号，而不是逗号：

push @x, '__';
push @y, '__';