如何在Perl程序中将行换行为45个字符？

Question

我有这篇文章我在Perl CGI程序中写道:

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

我想在45个字符后强制返回.我怎么在这里这样做？

在此先感谢您的帮助.

Answer 1

查看核心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";