Comment créer une sortie en colonnes dans Perl?

Question

/usr/bin/env perl

use warnings; 
use strict; 

my $text = 'hello ' x 30; 

printf "%-20s : %s\n", 'very important text', $text; 

La sortie de ce script ressemble plus ore moins comme ceci:

very important text  : hello hello hello hello 
hello hello hello hello hello hello hello hello 
hello hello hello hello hello hello hello hello 
... 

Mais je voudrais une sortie comme ceci:

very important text: hello hello hello hello 
        hello hello hello hello 
        hello hello hello hello 
        ... 

J'ai oublié de mentionner: Le texte devrait avoir une extrémité ouverte dans le sens où l'extrémité droite des lignes de texte devrait correspondre à la taille du terminal.

Comment est-ce que je pourrais changer mon script pour atteindre mon but?

Answer 1

Vous pouvez utiliser Text::Wrap:

use strict; 
use Text::Wrap; 

my $text = "hello " x 30; 
my $init = ' ' x 20; 
$Text::Wrap::columns = 80; 

print wrap ('', $init, 'very important text : ' . $text); 

Answer 2

Bien que je ne sois pas sûr de votre question du format de sortie, je peux vous dire que la clé de la sortie en langage Perl est d'utiliser des formats.

Une introduction sur la façon de les utiliser pour obtenir à peu près n'importe quel format de sortie que vous souhaitez est Perl format primer.

Answer 3

Essayez ceci,

use strict; 
use warnings; 

my $text = 'hello ' x 30; 

$text=~s/((\b.+?\b){8})/$1\n      /gs; 
printf "%-20s : %s\n", 'very important text', $text; 

Answer 4

#!/usr/bin/env perl 
use warnings; 
use strict; 
use 5.010; 
use Text::Wrap; 
use Term::Size; 

my $text = 'hello ' x 30; 
my $init = ' ' x 22; 
my($columns, $rows) = Term::Size::chars *STDOUT{IO}; 
$Text::Wrap::columns = $columns; 

say wrap ('', $init, 'very important text : ' . $text);