|
|||||||||||||||||||||||||||
Ak. Som sædvanlig bringer dagens lys klarhed over nattens forbrydelser... :-)
> Hmm. Hvad med at snyde lidt:
>
> $re = '^' . '([\s\*]+)\s+' x 14 . '([\s\*]+)$';
> print join ':',$data =~ /$re/;
Der skal selvfølgelig stå \d i stedet for \s inde i []'erne. Desuden
skal der parantes, så der kommer til at stå:
$re = '^'.( '([\d\*]+)\s+' x 14 ).'([\d\*]+)$';
sorry :-(
- peter
--
ln -s /dev/random ~/.plan
|
||||||||||||||
|
||||||||||||||