Replacing the string

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

 #!\usr\bin\perl

use warnings;

use strict;

open IN,"+< z.txt";  

open OUT,"> t.txt";  

while (<IN>) {

s/(\d+)\s+(\d+)\s+(\d+)/ ($1+7).$2. ($3+12).$2.($4+9)/g;

print OUT;

}

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

oops...... hehehe

Maybe numberwhun won't notice.

KevinADC

Expand|Select|Wrap|Line Numbers

 my $str = 'TRANS -847.0 -672.0 -71.0';

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

print $str;

ramesh54

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

KevinADC

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

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

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.

Replacing the string

Post your reply

Similar topics