Re: How to find a number and replace it with calculated value?

Use the 'e' modifier for s///

use warnings;
use strict;

while (<DATA>) {
    s/(Z=)(\d+)/$1 . $2*4/eg;
    my $i = 1;
    s/\b(XP)\b/$1 . ' (' . $i++ . ')'/eg;
    print;
}

__DATA__
Z=1 Z=2
Z=3
foo XP bar XP boo
[download]

Outputs:

Z=4 Z=8
Z=12
foo XP (1) bar XP (2) boo
[download]

Comment on Re: How to find a number and replace it with calculated value? Select or Download Code

Replies are listed 'Best First'.
Re^2: How to find a number and replace it with calculated value? by Lejocode (Novice) on Mar 03, 2017 at 13:33 UTC
Thanks toolic, that's what i wanted. just a small issue, the increment of occurrence number is per line, how to make it per file or multipleline?	[reply]
Re^3: How to find a number and replace it with calculated value? by AnomalousMonk (Archbishop) on Mar 03, 2017 at 21:20 UTC
... the increment of occurrence number is per line, how to make it per file or multipleline? Move the `my $i = 1;` statement to before the loop (untested): `my $i = 1; while (<DATA>) { ... s/\b(XP)\b/$1 . ' (' . $i++ . ')'/eg; print; }` [download] Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^4: How to find a number and replace it with calculated value? by Lejocode (Novice) on Mar 03, 2017 at 21:36 UTC
It did it :) thank you guys.	[reply]