Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

perlman:Text::Wrap

by root (Scribe)
on Dec 23, 1999 at 00:53 UTC ( #1257=perlfunc: print w/replies, xml ) Need Help??

Text::Wrap

See the current Perl documentation for Text::Wrap.

Here is our local, out-dated (pre-5.6) version:


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;


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


EXAMPLE

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


BUGS

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.


AUTHOR

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


Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[Corion]: Nicholas Clark++ # read for a multichar block-delimiter by scanning for the last char, and only then check whether the whole delimiter was read.
[Corion]: At least if you're appending the data read to a larger buffer, this means you avoid the situation of "a delimiter was found but the other half has not been read yet"
choroba misses the context
[Corion]: choroba: Optimizing how Perl reads source code on startup (and then processes it line-by-line)
[Corion]: But in general, it seems to be an interesting approach I should think about - whenever I'm searching for something, to consider if I could search for the end of the token instead of the start of the token

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (12)
As of 2016-12-06 15:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (107 votes). Check out past polls.