perl - 在 perl 中多次打印同一行

Question

我想在一行中输出，现在可以了，例如：

print "$a\t" x 99;
print "$b\n";

所以上面是一条线的样子。但我也想打印这些行$c时间。有没有捷径可以做到这一点，而不是使用 for 循环，如：

for ($i = 1; $i <= $c; $i++) {
  print "$a\t" x 99;
  print "$b\n";
}

有没有更简单的方法，就像"$a\t" x 99？

Answer 1

for (1 .. $how_many) { print "$foo\t" x 99, "$bar\n"; }

IMO 比 C 风格的 for (;;) 循环更简单。

Answer 2

是的，您已经拥有了所需的一切。

print ((("$a\t" x 99)."$b\n") x $c);