Re^2: Split at specific spaces

in reply to Re: Split at specific spaces
in thread Split at specific spaces

And Another One Way

$name=qq(1 AC2 34 TRP A 6 ALA A 7 ILE A 14 GLY A 15);

split (/ /, $name);

### Process the temp array
for ( $i=0; $i<=$#_; $i++)
{
    push @get, (join ' ', @_[$i..$i+2]);
    $i=$i+2;
}

print "\n$_" for @get;
[download]

Comment on Re^2: Split at specific spaces Download Code

Replies are listed 'Best First'.
Re^3: Split at specific spaces by toolic (Bishop) on May 12, 2010 at 12:46 UTC
While this code does produce correct results in this case, you are ignoring a warning message because you do not use strict and warnings: `Use of implicit split to @_ is deprecated` [download]	[reply] [d/l]

In Section Seekers of Perl Wisdom