如何在Perl程序中將行換行爲45個字符？

Question

我有這樣的文字，我在一個Perl CGI程序編寫：

$text = $message; 
@lines = split(/\n/, $text); 
$lCnt .= $#lines+1; 
$lineStart = 80; 
$lineHeight = 24; 

我想生效後45個字符的回報。我該怎麼做？

在此先感謝您的幫助。

Answer 1

結賬Text::Wrap。它將完全符合你的需求。

Answer 2

看核心Text::Wrap模塊：

use Text::Wrap; 
my $longstring = "this is a long string that I want to wrap it goes on forever and ever and ever and ever and ever"; 
$Text::Wrap::columns = 45; 
print wrap('', '', $longstring) . "\n"; 

Answer 3

由於Text::Wrap某種原因OP不起作用，這裏是使用正則表達式的解決方案：

my $longstring = "lots of text to wrap, and some more text, and more " 
       . "still. thats right, even more. lots of text to wrap, " 
       . "and some more text."; 

my $wrap_at = 45; 

(my $wrapped = $longstring) =~ s/(.{0,$wrap_at}(?:\s|$))/$1\n/g; 

print $wrapped; 

它打印：

lots of text to wrap, and some more text, and 
more still. thats right, even more. lots of 
text to wrap, and some more text.