how to count matches?

[Geoff Cox]

Hello

I want to use regex to find/replace say <jim> with $num-fred<jim> so
that $num increase by 1 for each occurrence.

It might that there are 2 of <jim> on a line so my code below is not
working - how should I change it? Clues please!

$num = 1;

if ($line =~ /<jim>/) {
my $orig = "<jim>";
my $new = "$num-jim";
$line =~ s/$orig/$new/g;
$num++;
}

Thanks

Geoff

 

[John Bokma]

Hello

I want to use regex to find/replace say <jim> with $num-fred<jim> so
that $num increase by 1 for each occurrence.

It might that there are 2 of <jim> on a line so my code below is not
working - how should I change it? Clues please!

$num = 1;

if ($line =~ /<jim>/) {
my $orig = "<jim>";
my $new = "$num-jim";
$line =~ s/$orig/$new/g;
$num++;

Not tested: s{$orig}{ $num++ . "-jim" }ge;

note the e.

Also note that the first part of your posting and your actual code are in
disagreement.

 

[Arndt Jonasson]

I want to use regex to find/replace say <jim> with $num-fred<jim> so
that $num increase by 1 for each occurrence.

It might that there are 2 of <jim> on a line so my code below is not
working - how should I change it? Clues please!

$num = 1;

if ($line =~ /<jim>/) {
my $orig = "<jim>";
my $new = "$num-jim";
$line =~ s/$orig/$new/g;
$num++;

Use the 'e' modifier:

if ($line =~ /<jim>/) {
my $orig = "<jim>";
$line =~ s/$orig/$num++ . "-jim"/ge;

 

[Geoff Cox]

ThanksJOhn - I have it working now.

Cheers

Geoff

 

[Geoff Cox]

Use the 'e' modifier:

if ($line =~ /<jim>/) {
my $orig = "<jim>";
$line =~ s/$orig/$num++ . "-jim"/ge;

Thanks Arndt - all is well!

Cheers

Geoff