मैं पर्ल में कॉलम आउटपुट कैसे बना सकता हूं?

Question

/usr/bin/env पर्ल

use warnings; 
use strict; 

my $text = 'hello ' x 30; 

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

इस स्क्रिप्ट का उत्पादन अधिक अयस्क इस तरह कम लग रहा है:

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

:

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

लेकिन मैं इस तरह एक आउटपुट चाहते हैं

मैं उल्लेख करना भूल गया: टेक्स्ट को इस अर्थ में एक खुला अंत होना चाहिए कि टेक्स्टलाइन के दाहिने सिरे को टर्मिनल के आकार के अनुरूप संरेखित करना चाहिए।

मैं अपने लक्ष्य तक पहुंचने के लिए अपनी स्क्रिप्ट कैसे बदल सकता हूं?

Answer 1

आप 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

जबकि मुझे आपके प्रश्न से निश्चित रूप से यकीन नहीं है कि आप अपने आउटपुट को किस प्रारूप में देखना चाहते हैं, मैं आपको बता सकता हूं कि पर्ल भाषा में सुंदर आउटपुट की कुंजी प्रारूपों का उपयोग करना है।

Perl format primer पर किसी भी आउटपुट स्वरूपण को प्राप्त करने के लिए उन्हें उपयोग करने के तरीके पर एक प्राइमर है।

Answer 3

इस प्रयास करें,

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