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


in reply to Re: How to split a string based on length or word boundary
in thread How to split a string based on length or word boundary

Brilliant++!

Just needs a couple of tweaks:

print "| $_ |\n" for map substr($_ . ' ' x 16, 0, 16), $s =~ m[(.{1,16 +})(?:\s+|$)]g; # ^^ + ^^^^^^^^^

(Otherwise, the final word won’t be printed unless it happens to be followed by whitespace.)

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

Replies are listed 'Best First'.
Re^3: How to split a string based on length or word boundary
by BrowserUk (Patriarch) on Dec 21, 2012 at 03:04 UTC

    Good point about the $++

    The \n is provided by -l in my code.


    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

    RIP Neil Armstrong