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

Re: spliting text!!

by imp (Priest)
on Mar 08, 2007 at 19:10 UTC ( #603883=note: print w/ replies, xml ) Need Help??

in reply to spliting text!!

use strict; use warnings; my $line = <DATA>; # Quick and dirty # Greedily match anything from 1-70 characters my @lines = $line =~ /.{1,70}/g; print $_,"\n" for @lines; # Less memory use for large blocks of text while ($line =~ /(.{1,70})/g) { print $1,"\n"; } __DATA__ 1234567890123456789012345678901234567890123456789012345678901234567890 +123456789012345678901234567890123456789012345678901234567890123456789 +012345678901234567890123456789012345678901234567890123456789012345678 +901234567890123456789012345678901234567890123456789012345678901234567 +890123456789012345678901

Comment on Re: spliting text!!
Download Code
Replies are listed 'Best First'.
Re^2: spliting text!!
by duff (Vicar) on Mar 08, 2007 at 19:29 UTC

    Just because I'm mildly annoyed at the width of your code, how about, instead of reading from the DATA file handle you do something like this:

    my $line = '1234567890' x 20;
    BTW, you may want to use /s on your pattern so that . matches any character since we don't know the exact contents of the OP's strings.


      If the code isn't wrapping you can goto "Display Settings" and uncheck 'Code Wrapping Off' so that perlmonks will wrap the code up for you. Just an FYI in case you (or someone else reading) didn't know.

      Eric Hodges
        Well, I've tried that setting both ways, but right now the front page of SOPW is till too wide, although being here (replies section), width is fine....
        Any tips?


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://603883]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (2)
As of 2015-11-28 05:36 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (738 votes), past polls