Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Replacing a given character starting with the xth occurence in a string

by zeidrik (Scribe)
on May 22, 2001 at 16:58 UTC ( #82212=note: print w/ replies, xml ) Need Help??


in reply to Replacing a given character starting with the xth occurence in a string

Here is possibly the most compact way (not the fastest yet)

my $s = "Terence and Philip are sweet\n"; my $c = 'e'; my $r = 1; my $n = 3; ($s=~/((.*?)$c){$n}/)&&(($s,$_)=($&,$'))&&(s/$c/$r/g)&&(print $s,$_);


Comment on Re: Replacing a given character starting with the xth occurence in a string
Download Code
(tye)Re: Replacing a given character starting with the xth occurence in a string
by tye (Cardinal) on May 22, 2001 at 19:53 UTC

    Using $& and $' is a bad idea since it slows down all regexen for the life of that instance of the Perl interpreter (for the life of the script). Perhaps you know that but I don't want casual readers to get the wrong idea about those.

            - tye (but my friends call me "Tye")

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://82212]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (10)
As of 2014-12-28 09:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (180 votes), past polls