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


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

[download]

Replies are listed 'Best First'.
Re^2: spliting text!!
by duff (Parson) 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;

    [download]
    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.

    cheers,

    duff

[reply]
[d/l]
[select]

      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
[reply]
        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?

        Cheers
        Chris
[reply]

In Section Seekers of Perl Wisdom