Replace negative numbers with 0 in a file

[Mayank]

X-No-Archive: yes

Hi,

I have to replace all the negative numbers with 0 in a very large
file. How can I do it in Perl/Awk. Negative numbers are of the format
(-0.02:0.01:-1.00) ( 0.11:0.01:-0.01)

I need to change them to

(0:0.01:0) (0.11:0.01:0)

Positive numbers should remain untouched.

Thanks in advance.

Regards
Mayank

[Mike Cross]

I think this SED script will do what you want

sed 's/-[^:)]*/0/g'

Mike
Mayank wrote:

X-No-Archive: yes
Hi,

I have to replace all the negative numbers with 0 in a very large
file. How can I do it in Perl/Awk. Negative numbers are of the format
(-0.02:0.01:-1.00) ( 0.11:0.01:-0.01)

I need to change them to

(0:0.01:0) (0.11:0.01:0)

Positive numbers should remain untouched.

Thanks in advance.

Regards
Mayank

[Gunnar Hjalmarsson]

Mike Cross wrote:

Mayank wrote:

I have to replace all the negative numbers with 0 in a very large
file. How can I do it in Perl/Awk. Negative numbers are of the
format
(-0.02:0.01:-1.00) ( 0.11:0.01:-0.01)

I need to change them to

(0:0.01:0) (0.11:0.01:0)

I think this SED script will do what you want

sed 's/-[^:)]*/0/g'

If there is other info in the file, besides such parentheses with
numbers, I'd rather do (in Perl):

s/-\d+(?:\.\d+)?/0/g;

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl