Làm cách nào để tạo đầu ra cột trong Perl?

Question

/usr/bin/env perl

use warnings; 
use strict; 

my $text = 'hello ' x 30; 

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

Kết quả của kịch bản này trông quặng nhiều ít như thế này:!

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

Nhưng tôi sẽ giống như một đầu ra như thế này:

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

Tôi quên đề cập đến: Văn bản phải có kết thúc mở theo nghĩa là đầu bên phải của dòng văn bản phải căn chỉnh tương ứng với kích thước của thiết bị đầu cuối.

Tôi làm cách nào để thay đổi tập lệnh để đạt được mục tiêu?

Answer 1

Bạn có thể sử dụng 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

Mặc dù tôi không chắc chắn từ câu hỏi của bạn chính xác định dạng bạn muốn đầu ra, tôi có thể cho bạn biết rằng khóa để tạo đầu ra đẹp trong ngôn ngữ Perl là sử dụng định dạng.

Giới thiệu về cách sử dụng chúng để đạt được khá nhiều định dạng đầu ra bạn muốn là Perl format primer.

Answer 3

Hãy thử điều này,

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);