Splitting and keeping the delimiter

[Sandman]

Hello! I have a string like this:

12.00 Simpsons 12.30 Seinfeld 13.00 Movie: Dante's Peak

And I want to split that in seperate "programs" that I'd like to deal with
individually. So, I want this in an array like this:

"12.00 Simpsons",
"12.30 Seindfeld"
"13.00 Movie: Dante's Peak"

And the one thing that I can split on is '\d\d\.\d\d', which is the only common
thing, but using

split /\d\d\.\d\d/

produces

"Simpsons",
"Seindfeld"
"Movie: Dante's Peak"

Is there a way? How would you do it?

 

[Glenn Jackman]

Hello! I have a string like this:

12.00 Simpsons 12.30 Seinfeld 13.00 Movie: Dante's Peak

And I want to split that in seperate "programs" that I'd like to deal with
individually. So, I want this in an array like this:

"12.00 Simpsons",
"12.30 Seindfeld"
"13.00 Movie: Dante's Peak"

my $str = "12.00 Simpsons 12.30 Seinfeld 13.00 Movie: Dante's Peak";
my $delim = qr/\d\d\.\d\d/;
my @programs = $str =~ m{
$delim # the delimiter
.+? # followed by some characters, until ...
(?= $delim | $) # we can look ahead to see delim or the end of string
}xg;

 

[John W. Krahn]

Hello! I have a string like this:

12.00 Simpsons 12.30 Seinfeld 13.00 Movie: Dante's Peak

And I want to split that in seperate "programs" that I'd like to deal with
individually. So, I want this in an array like this:

"12.00 Simpsons",
"12.30 Seindfeld"
"13.00 Movie: Dante's Peak"

And the one thing that I can split on is '\d\d\.\d\d', which is the only common
thing, but using

split /\d\d\.\d\d/

produces

"Simpsons",
"Seindfeld"
"Movie: Dante's Peak"

Is there a way? How would you do it?

$ perl -le'
$string = " 12.00 Simpsons 12.30 Seinfeld 13.00 Movie: Dantes Peak ";
@array = $string =~ /\d\d\.\d\d.+?(?=\d|$)/g;
print for @array;
'
12.00 Simpsons
12.30 Seinfeld
13.00 Movie: Dantes Peak



John

 

[David K. Wall]

Hello! I have a string like this:

12.00 Simpsons 12.30 Seinfeld 13.00 Movie: Dante's Peak

And I want to split that in seperate "programs" that I'd like to deal with
individually. So, I want this in an array like this:

"12.00 Simpsons",
"12.30 Seindfeld"
"13.00 Movie: Dante's Peak"

You have workable solutions from several responses. Just one comment: use
split() when you know what to throw away, a regex when you know what to keep.
(I believe I'm quoting someone, but can't remember whom.)

 

[Uri Guttman]

DKW> You have workable solutions from several responses. Just one
DKW> comment: use split() when you know what to throw away, a regex
DKW> when you know what to keep. (I believe I'm quoting someone, but
DKW> can't remember whom.)

if he didn't say it first, he surely publicized the most, randal
schwartz.

uri

 

[Anno Siegel]

DKW> You have workable solutions from several responses. Just one
DKW> comment: use split() when you know what to throw away, a regex
DKW> when you know what to keep. (I believe I'm quoting someone, but
DKW> can't remember whom.)

if he didn't say it first, he surely publicized the most, randal
schwartz.

....so much so that the saying is sometimes called "Randal's Rule".

 

[Janek Schleicher]

Sandman wrote at Wed, 10 Sep 2003 22:29:57 +0200:

Hello! I have a string like this:

12.00 Simpsons 12.30 Seinfeld 13.00 Movie: Dante's Peak

And I want to split that in seperate "programs" that I'd like to deal with
individually. So, I want this in an array like this:

"12.00 Simpsons",
"12.30 Seindfeld"
"13.00 Movie: Dante's Peak"

I wouldn't split it, as it is easier IMHO to describe what you want
instead of what you won't:

my $progstr = "12.00 Simpsons 12.30 Seinfeld 13.00 Movie: Dante's Peak";
my @program = $progstr =~ /\d+\.\d+\s+.*?(?=\s+\d|$)/g;
print join "\n", @program;


Greetings,
Janek

 

[Sandman]

Thanks for all the suggestions!