Re: Separating substrings from a main string

[blue_cowdawg]

in reply to Separating substrings from a main string

my $string=qq(> abcd1234
abcd abcd 
>xyz123 
xyz);
$string =~s/[\s\n]+//g;  #squash out the whitespace and newlines
my @f=split(/[\>]/,$string;
# CAVEAT: just wrote the off the top of my head...

Give that a whirl.

[newbie1991]

this works, but only for the first instance. As in, @f is >abcd1234, but the correct output should be >abcd1234 >xyz123 Would it be more convenient if $string was an array?

[blue_cowdawg]

I gave you a template. If you have other requirements please engage your creativity and modify the template to suit you. Here's one way:

$ cat splitter.pl 
use strict;
use Data::Dumper;

my $foo=qq(> abcd1234
abcd abcd 
>xyz123 
xyz);
$foo =~ s/\n//g;

my @f = split(/[\>]/,$foo);

$_ = '>' . $_ foreach @f;

print Dumper(\@f);



$ perl splitter.pl
$VAR1 = [
          '>',
          '> abcd1234abcd abcd ',
          '>xyz123 xyz'
        ];