Removing parts of a string

[jerehart]

Hey I need help parsing data, here is what it looks like (this is a single line from the input file):

1189: 4m56.5 23.55us ..00C904 ....6010 WORD WRI OK .......---- --- ....

to split up the data I am using:

@data = split (/[\ \t\n\-]+/,$_);

which returns:

{1189:,4m56.5,23.55us,..00C904,....6010,WORD,WRI,OK,......,.....};

I want to remove even more I do not want all of the ....+ strings and I don't want the ".." infront of valid data. This is what I would like:

{1189:,4m56.5,23.55us,00C904,6010,WORD,WRI,OK}

I have tried adding in [\.\.]*, (\.(\.)) into the split but this does not work.
I use a next if to get rid of 1189: and WORD, WRI, OK.

Any ideas on how ro remove the extra .. from my data?

 

[justice41]

Add this somewhere after the split.

@data = map { s/(?<!\d)\.//g; $_ } @data;

It will remove every '.' that is not preceeded by a digit.

jaa

 

[dchoulette]

@data = split(/[\s-][\s-.]*/, $_);

The separator are 'space' or '-' characters followed by any number of 'space', '-' or '.' characters.
A separator can not start with a '.' so the '.' not preceded by a 'space' or '-' are not removed.

The following:

perl -e 'print "{".join(",", split(/[\s-][\s-.]*/, "1189: 4m56.5 23.55us ..00C904 ...6010 WORD WRI OK .......---- --- ....")) . "}\n";'

gives me:

{1189:,4m56.5,23.55us,00C904,6010,WORD,WRI,OK}