regulære udtryk (evt split?)

[Ole Tranberg <sslug@sslug>]

Hej.

Jeg sidder med et lille bitte perlscript, men er kommet frem til en
lidt fjollet linie:

if ($input[$i] =~
/^([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)\s+([\d\*]+)
/) { ... }

Jeg finder altså en linie i $input, som har 15 tal eller *  med et
vilkårligt antal blanke tegn imellem. De 15 tal skal jeg bruge, og
gemmer dem derfor efterfølgende.
Men jeg synes ikke linien er specielt køn, er det muligt at lave noget
bedre? Jeg har prøvet med ting såsom (([\d\*]+)\s+){15}, men så kan
jeg ikke finde ud af at 'fange' værdierne på de 15 pladser.

Jeg har spekuleret en anelse på at benytte 'split' i stedet, men er
det mon muligt når jeg ikke ved hvor mange blanke tegne der er imellem
de forskellige tal/stjerner?

Kort sagt, findes der ikke et pænt og kort regulært udtryk, som kan
fange de 15 værdier?

-- 
sincerely, Ole Tranberg 
(address is valid)