arrays - 在 Perl 中多次执行语句的简单方法

Question

是否有一种简写方式可以将 n 个相同的元素推送到数组？

我可以在一行中完成吗？

push(@mode_z00,"lib_drx");
push(@mode_z00,"lib_drx");
push(@mode_z00,"lib_drx");
push(@mode_z00,"lib_drx");
push(@mode_z00,"lib_drx");

有点像 推(@mode_z00,5,"lib_drx");

Answer 1

使用 x 运算符来制作一个值的多个副本。

push(@array, ('foo') x 5);