Полезная информация


Text::Wrap - line wrapping to form simple paragraphs


        use Text::Wrap

        print wrap($initial_tab, $subsequent_tab, @text);

        use Text::Wrap qw(wrap $columns $tabstop fill);

        $columns = 132;
        $tabstop = 4;

        print fill($initial_tab, $subsequent_tab, @text);
        print fill("", "", `cat book`);


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.

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 wrap().


        print wrap("\t","","This is a bit of text that forms 
                a normal book-style paragraph");


It's not clear what the correct behavior should be when Wrap() 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.


David Muir Sharnoff <muir@idiom.com> with help from Tim Pierce and others. Updated by Jacqui Caren.


We are painfully aware that these documents may contain incorrect links and misformatted HTML. Such bugs lie in the automatic translation process that automatically created the hundreds and hundreds of separate documents that you find here. Please do not report link or formatting bugs, because we cannot fix per-document problems. The only bug reports that will help us are those that supply working patches to the installhtml or pod2html programs, or to the Pod::HTML module itself, for which I and the entire Perl community will shower you with thanks and praises.

If rather than formatting bugs, you encounter substantive content errors in these documents, such as mistakes in the explanations or code, please use the perlbug utility included with the Perl distribution.

--Tom Christiansen, Perl Documentation Compiler and Editor

Return to the Perl Documentation Index.
Return to the Perl Home Page.