Re^2: Replacing a specfied instance of a pattern in a string

A tad simpler looping, and case-insensitive:

my $foo   = 'Fsih my test variable is fsihd or is it gfsih or gfsihd f
+sih';
my $from  = 'fsih';
my $which = 3;
my $to    = 'FISH'; # makes it easy to see

$foo =~ /\Q$from\E/ig for (1..$which);
substr($foo, pos($foo) - length($from), length($from), $to) if pos($fo
+o);
print "Foo = $foo\n";
[download]

Caution: Contents may have been coded under pressure.

Comment on Re^2: Replacing a specfied instance of a pattern in a string Download Code

Replies are listed 'Best First'.
Re^3: Replacing a specfied instance of a pattern in a string by ikegami (Patriarch) on Jul 14, 2005 at 22:48 UTC
That reminds me of `/c`! `my $str = 'Fsih my test variable is fsihd or is it gfsih or gfsih +d fsih'; # 1111 2222 3333 + 4444 my $substr = 'fsih'; my $regexp = qr/\Q$substr\E/; my $replace = 'fish'; my $instance = 3; # 3rd print("$str\n"); scalar $str =~ /\G.?$regexp/gc while --$instance; $str =~ s/\G(.?)$regexp/$1$replace/; print("$str\n");` [download] The `/c` is needed in case there are less than $instance instances of the search string.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Replacing a specfied instance of a pattern in a string
by ikegami (Patriarch) on Jul 14, 2005 at 22:48 UTC

/c

my $str      = 'Fsih my test variable is fsihd or is it gfsih or gfsih
+d fsih';
#                                        1111            2222     3333
+  4444
my $substr   = 'fsih';
my $regexp   = qr/\Q$substr\E/;
my $replace  = 'fish';
my $instance = 3;  # 3rd

print("$str\n");

scalar $str =~ /\G.*?$regexp/gc
   while --$instance;

$str =~ s/\G(.*?)$regexp/$1$replace/;

print("$str\n");
[download]

The /c is needed in case there are less than $instance instances of the search string.

[reply]
[d/l]
[select]