Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic


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


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


        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 <> with help from Tim Pierce and others. Updated by Jacqui Caren.

Log In?

What's my password?
Create A New User
[Your Mother]: Because we are LEGION! Fix YOUR SIG SIG BLOCK!!!!
[Your Mother]: Forgot to sign in as my sockpuppet, how embarrassing!
[1nickt]: pryrt I am creating a Type to check valid user IDs, which must be a whole number greater than or equal to zero. I would like to disallow 1.0 but because of this behaviour, by the time it is checked by the constraint, it *is* an Int.
[LanX]: should this be considered? Re: Parsing .txt into arrays
[LanX]: and this Re^4: Hash user input
[pryrt]: LanX, I would vote "keep" if it were considered: it's not helpful, but it could be taken multiple ways, not all of which are offenseive...
[pryrt]: 1nickt: if you are checking for valid user IDs, then I wouldn't care about the difference between 1.0 and 1: I would take either as a valid representation of the integer user ID#1
[LanX]: and this Re^2: extract column data
[Lady_Aleena]: I have two sub recurse { my ($directory, $other_var) = @_; my @files = file_list($directo ry); for my $file (@files) { if (-f $file) { do "stuff"; } if (-d $file) { recurse(" $directory/$file" , $other_var); } } } This was when I hated File::Find.
[tobyink]: 1nickt: your code?

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (14)
As of 2017-05-24 20:14 GMT
Find Nodes?
    Voting Booth?