perlfunc
root
<P>
Text::Wrap - line wrapping to form simple paragraphs
<P>
<HR>
<P>
<PRE> use Text::Wrap
</PRE>
<P>
<PRE> print wrap($initial_tab, $subsequent_tab, @text);
</PRE>
<P>
<PRE> use Text::Wrap qw(wrap $columns $tabstop fill);
</PRE>
<P>
<PRE> $columns = 132;
$tabstop = 4;
</PRE>
<P>
<PR
<P>
Text::Wrap::wrap() is a very simple paragraph formatter. It formats a
single paragraph at a time by breaking lines at word boundries. Indentation
is controlled for the first line ($initial_tab) and all subsquent lines
($subsequent_tab) independently. $Text::Wrap::columns should be set to the
full width of your output device.
<P>
Text::Wrap::fill() is a simple multi-paragraph formatter. It formats each paragraph separately and then joins them together when it's done. It will destory any whitespace in the original text. It breaks text into paragraphs by looking for whitespace after a newline. In other respects it acts like
<CODE>wrap().</CODE>
<P>
<HR>
<H1><A NAME="EXAMPLE">EXAMPLE</A></H1>
<P>
<PRE> print wrap("\t","","This is a bit of text that forms
a normal book-style paragraph");
</PRE>
<P>
<HR>
<H1><A NAME="BUGS">BUGS</A></H1>
<P>
It's not clear what the correct behavior should be when
<CODE>Wrap()</CODE> is presented with a word
that is longer than a line. The previous behavior was to die. Now the word
is now split at line-length.
<P>
<HR>
<H1><A NAME="AUTHOR">AUTHOR</A></H1>
<P>
David Muir Sharnoff <<A
HREF="mailto:muir@idiom.com">muir@idiom.com</A>> with help from Tim
Pierce and others. Updated by Jacqui Caren.
<HR>