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?

--
Sandman[.net]

[Tina Mueller]

Sandman wrote:

> 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"

just a note: what if you have:
20:00 24 - 06:00 - 07:00
?
the '06:00 - 07:00' belongs to the title of the program

> 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"

try
split / ?(?=\d\d\.\d\d)/

hth, tina
--
[url]http://www.tinita.de/[/url] \ enter__| |__the___ _ _ ___
[url]http://Movies.tinita.de/[/url] \ / _` / _ \/ _ \ '_(_-< of
[url]http://www.perlquotes.de/[/url] \ \ _,_\ __/\ __/_| /__/ perception
- the above mail address expires end of december 2003 -

[Glenn Jackman]

Sandman <mr@sandman.net> wrote:

> 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;

--
Glenn Jackman
NCF Sysadmin
[email]glennj@ncf.ca[/email]

[John W. Krahn]

Sandman wrote:

>
> 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
--
use Perl;
program
fulfillment

[David Oswald]

"Sandman" <mr@sandman.net> wrote in message
news:mr-66A60F.22295710092003@news.fu-berlin.de...

> 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"
>

<snip>

> Is there a way? How would you do it?

Yes, there is a way. Actually as with most things in Perl there is more
than one way.

The easiest involves using an assertion that doesn't consume anything.

my $string = "12.00 Simpsons 12.30 Seinfeld 13.00 Movie: Dante's Peak";
@array = split /(?=\d+\.\d+\s)/, $string;

Another possibility would be to come up with pairs, and then join them like
this (untested):

while ($string) {
my ($time,$name,$string) = split /(\d+\.\d+)\s/,$string,3;
push @array, join " ",($time, $name);
}

This relies on paranthesis to capture the delimiter, and counts on the limit
parameter of split to limit its output to three strings; in this case the
delimiter, the name of the show, and a string containing everything else,
ready for the next split call.

Eventually $string is empty, and the while loop runs out.

I like the first method better though.

Dave

[David K. Wall]

Sandman <mr@sandman.net> wrote:

> 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.)

--
David Wall

[Uri Guttman]

>>>>> "DKW" == David K Wall <usenet@dwall.fastmail.fm> writes:

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

--
Uri Guttman ------ [email]uri@stemsystems.com[/email] -------- [url]http://www.stemsystems.com[/url]
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- [url]http://jobs.perl.org[/url]
Damian Conway Class in Boston - Sept 2003 -- [url]http://www.stemsystems.com/class[/url]

[Anno Siegel]

Uri Guttman <uri@stemsystems.com> wrote in comp.lang.perl.misc:

> >>>>> "DKW" == David K Wall <usenet@dwall.fastmail.fm> writes:

>
> 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!

--
Sandman[.net]