perl - perlで同じ行を数回印刷する

Question

次のように、今は問題ない1行で出力したい：

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

上記は、1行がどのように見えるかです。$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);