[ramesh54]

Hello All,

I would like the replace the following string,

TRANS -847.0 -672.0 -71.0

as

TRANS -840.0 -660.0 -62.0

I am able to replace the string when the numbers are positive without decimals using \d and \s syntax. But the above expressions have negative sign and decimals. How could i formulate that using regexp.

Ramesh

[numberwhun]

What have you tried thus far? I would love to see what you come up with and will then help you from there. Do not forget to post your code (in code tags) and any errors or results.

Regards,

Jeff

[ramesh54]

Expand|Select|Wrap|Line Numbers

1. #!\usr\bin\perl
2. use warnings;
3. use strict;
4. open IN,"+< z.txt";  
5. open OUT,"> t.txt";  
6. while (<IN>) {
7. s/(\d+)\s+(\d+)\s+(\d+)/ ($1+7).$2. ($3+12).$2.($4+9)/g;
8. print OUT;
9. }

This works when numbers are positive integers. My case is for decimals and negative numbers.

[KevinADC]

Do not forget to post your code (in code tags)

oops...... hehehe

[eWish]

Originally Posted by KevinADC

oops...... hehehe

Maybe numberwhun won't notice.

[KevinADC]

Expand|Select|Wrap|Line Numbers

1. my $str = 'TRANS -847.0 -672.0 -71.0';
2. $str =~ s/(\S+)\s+(-?\d+\.?\d?)\s+(-?\d+\.?\d?)\s+(-?\d+\.?\d?)/sprintf "$1 %.1f %.1f %.1f", $2+7,$3+12,$4+9/eg;
3. print $str;

[ramesh54]

Thanks Kevin for the help. It replaces the negative and decimal numbers.

[KevinADC]

Originally Posted by ramesh54

Thanks Kevin for the help. It replaces the negative and decimal numbers.

Next time use the CODE tags, OK? If not, Jeff might ban you from the forum.

[numberwhun]

Originally Posted by KevinADC

Next time use the CODE tags, OK? If not, Jeff might ban you from the forum.

I am not that cruel, I give a couple warnings. :-) Don't you have a rebellion to worry about Kevin?

[KevinADC]

Originally Posted by numberwhun

I am not that cruel, I give a couple warnings. :-) Don't you have a rebellion to worry about Kevin?

No, the rebellion was postponed, maybe cancelled, depends on if my wife comes to her senses.