如何在Perl中插入大量空格？

Question

我需要使用不同但大量的空格来填充一行文本。我可以找出一种简洁的循环方式，并在$ foo中添加空格，然后将其拼接到文本中，但这不是一个优雅的解决方案。

Answer 1

我需要更多信息。你只是附加一些文字还是需要插入？

无论哪种方式，重复的一种简单方法是perl的'x'运算符，例如。

" " x 20000

会给你20K的空间。

如果有一个现有的字符串（$ s说）并且您想要将其填充到20K，请尝试

$s .= (" " x (20000 - length($s)))

BTW，Perl有an extensive set of operators - 如果你对这门语言认真的话，那值得研究。

更新：最初提出的问题（它已经被编辑过）询问了大约20K的空格，而不是“很多空白”，因此在我的答案中是20K。

Answer 2

如果您始终希望字符串为特定长度，则可以使用sprintf：

例如，要使用空格填充$var，以便长度使用20,000个字符：

$var = sprintf("%-20000s",$var);

Answer 3

使用'x'运算符：

print ' ' x 20000;