fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. # Idiom #296 Replace last occurrence of substring
  4.  
  5. $x = 'A BB CCC this DDD EEEE this FFF';
  6. $y = 'this';
  7. $z = 'that';
  8.  
  9. $x2 = $x;
  10. $pos = rindex $x, $y;
  11. substr($x2, $pos, length($y)) = $z
  12.     unless $pos == -1;
  13.  
  14. print $x2;
  15.  
Success #stdin #stdout 0.01s 5552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
A BB CCC this DDD EEEE that FFF
https://ideone.com/RGZonh
Idiom #296 Replace last occurrence of substring
language:
Perl (perl 5.28.1)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!