http://www.perlmonks.org?node_id=1093854


in reply to Understanding Split and Join

Looking 4 wisdom in a situation.. I have a huge string. I need to split the text at max col80 "{80}" in the space(without breaking the words). If we find "/\.\s/" (dot space) should be a nice place to spit it. tks in advance,

Replies are listed 'Best First'.
Re^2: Understanding Split and Join
by Athanasius (Bishop) on Jul 16, 2014 at 12:16 UTC

    Have you looked at the FAQ, How do I reformat a paragraph? The core module Text::Wrap may be all you need:

    use strict; use warnings; use Text::Wrap qw($columns wrap); $columns = 80; print wrap('', '', <DATA>); __DATA__ The quick brown fox jumped over the lazy dog. The quick brown fox jump +ed over the lazy dog. The quick brown fox jumped over the lazy dog. T +he quick brown fox jumped over the lazy dog. The quick brown fox jump +ed over the lazy dog. The quick brown fox jumped over the lazy dog. T +he quick brown fox jumped over the lazy dog. The quick brown fox jump +ed over the lazy dog. The quick brown fox jumped over the lazy dog. T +he quick brown fox jumped over the lazy dog. The quick brown fox jump +ed over the lazy dog.

    Output:

    2:13 >perl 935_SoPW.pl The quick brown fox jumped over the lazy dog. The quick brown fox jump +ed over the lazy dog. The quick brown fox jumped over the lazy dog. The quick +brown fox jumped over the lazy dog. The quick brown fox jumped over the lazy dog +. The quick brown fox jumped over the lazy dog. The quick brown fox jumped o +ver the lazy dog. The quick brown fox jumped over the lazy dog. The quick brow +n fox jumped over the lazy dog. The quick brown fox jumped over the lazy dog +. The quick brown fox jumped over the lazy dog. 2:13 >

    Hope that helps,

    Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,