comment on

If you are dead set against split and a regex you could use index and substr.

use strict;
use warnings;

use Data::Dumper;

my @shapeLines = (
   q{SHAPES GREEN1;SIZE 240 500 340 930;SIZE 350 500 240 590;SIZE 295 
+390 015 490;SIZE 350 210 760 300;SHAPES GREEN2;SIZE 450 310 680 690;S
+IZE 450 110 680 490;SIZE 215 800 560 900;},
   q{SHAPES GREEN;SIZE 240 500 340 930;SIZE 350 500 240 590;SIZE 295 3
+90 015 490;SIZE 350 210 760 300;SHAPES BLUE;SIZE 450 310 680 690;SIZE
+ 450 110 680 490;SIZE 215 800 560 900;},
   );

my @shapes = ();

foreach my $shapeLine ( @shapeLines )
{
    my @posns = ();
    my $posn  = -1;
    while ( ( $posn = index( $shapeLine, q{SHAPES}, $posn ) ) > -1 )
    {
        push @posns, $posn;
        $posn ++;
    }
    foreach my $posnIdx ( 0 .. $#posns )
    {
        push
           @shapes,
           substr
              $shapeLine,
              $posns[ $posnIdx ],
              $posnIdx == $#posns
              ? length( $shapeLine ) - $posns[ $posnIdx ]
              : $posns[ $posnIdx + 1 ] - $posns[ $posnIdx ];
    }
}

print Data::Dumper->Dumpxs( [ \ @shapes ], [ qw{ *shapes } ] )
[download]

$ ./spw805781
@shapes = (
            'SHAPES GREEN1;SIZE 240 500 340 930;SIZE 350 500 240 590;S
+IZE 295 390 015 490;SIZE 350 210 760 300;',
            'SHAPES GREEN2;SIZE 450 310 680 690;SIZE 450 110 680 490;S
+IZE 215 800 560 900;',
            'SHAPES GREEN;SIZE 240 500 340 930;SIZE 350 500 240 590;SI
+ZE 295 390 015 490;SIZE 350 210 760 300;',
            'SHAPES BLUE;SIZE 450 310 680 690;SIZE 450 110 680 490;SIZ
+E 215 800 560 900;'
          );
$
[download]

I hope this is helpful.

Cheers,

JohnGG

In reply to Re: splitting line without split by johngg
in thread splitting line without split by garbage777

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Clear questions and runnable code get the best and fastest answer
	PerlMonks