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

Question

我需要使用不同但大量的空格来填充一行文本.我可以找出一种方法来做一个循环并向$ foo添加空格,然后将其拼接到文本中,但它不是一个优雅的解决方案.

Answer 1

我需要更多信息.你只是附加一些文字或者你需要插入吗？

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

" " x 20000

会给你20K的空间.

如果有一个现有的字符串($ s说),你想要将其填充到20K,请尝试

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

顺便说一句,Perl拥有广泛的运营商 - 如果你认真对待这种语言,那么值得研究.

更新:最初提出的问题(它已被编辑)询问了大约20K空格,而不是"很多空白",因此在我的答案中是20K.

Answer 2

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

例如,要填充$var空白区域,以便使用20,000个字符:

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