split problem [A-Z] 1

[PerlElvir]

Hi all , I want to split something by capital latter and I have this situation:

$var="Sam 134 Dan 234 Hal 345";

@tax1 = split(/[A-Z]/, $var);

now in array I have

@tax1=("am 134","an 234","al 345")

my question is how can I split by capital latter, but also to have that capital letter, so I need to have like this:

@tax1=("Sam 134","Dan 234","Hal 345")

 

[KevinADC]

Don't know how accurate your sample $var is of your real data but an alternative to split is using a regexp to return a list:

my $var="Sam 134 Dan 234 Hal 345";
my @tax1 = $var =~ /([A-Z]\w+ \d+)/g;
print map {"$_\n"} @tax1;

 

[PerlElvir]

Thx man )

 

[rharsh]

I know that there is a performance hit by using it, but if you want to use split you can use positive lookahead assertion - this works with the example you provided.

my $str = 'Sam 134 Dan 234 Hal 345';
my @tax1 = split /\s*(?=[A-Z])\s*/, $str;
print "\|$_\|\n" for @tax1;