Comment insérer beaucoup d'espaces dans Perl?

Question

Je dois polir une ligne de texte avec un nombre variable mais important d'espaces. Je peux trouver une manière janky de faire une boucle et d'ajouter des espaces blancs à $ foo, puis de l'intégrer dans le texte, mais ce n'est pas une solution élégante.

Answer 1

J'ai besoin d'un peu plus d'informations. Est-ce que vous ajoutez simplement du texte ou avez-vous besoin de l'insérer? De toute façon, un moyen facile d'obtenir la répétition est l'opérateur 'x' de perl, par exemple.

" " x 20000 

vous donnera 20K espaces.

Si avoir une chaîne existante ($ s disent) et que vous voulez pad dehors à 20K, essayez

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

BTW, Perl a an extensive set of operators - vaut bien étudier si vous êtes sérieux au sujet de la langue. MISE À JOUR: La question initialement posée (elle a depuis été éditée) a demandé environ 20K espaces, pas un "lot d'espaces", d'où le 20K dans ma réponse.

Answer 2

utiliser le « x » opérateur:

print ' ' x 20000; 

Answer 3

Si vous voulez toujours la chaîne à une certaine longueur, vous pouvez utiliser sprintf:

Par exemple, pour rembourrer $var avec un espace blanc il 20000 caractères utilisation:

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