Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

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

by japhy (Canon)
on May 21, 2001 at 05:10 UTC ( [id://81893]=note: print w/replies, xml ) Need Help??


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

I would use tr///. 
sub adv_tr {
  my ($str, $x, $from, $to) = @_;
  my $pos = 0;

  # find index of Xth "$from"
  ($pos = index($str, $from, $pos)) == -1 and return while $x--;

  eval "substr(\$str, $pos) =~ tr/\Q$from\E/\Q$to\E/";
}

[download]


japhy -- Perl and Regex Hacker
  • Comment on Re: Replacing a given character starting with the xth occurence in a string
  • Download Code

Replies are listed 'Best First'.
Re: Re: Replacing a given character starting with the xth occurence in a string
by MeowChow (Vicar) on May 21, 2001 at 10:30 UTC
    Eh, you didn't actually test this, did you? =)

    See my reply to bbfu above. You'd have to do something like: 

    sub adv_tr {
  my ($str, $x, $from, $to) = @_;
  my $pos = -1;
  ($pos = index($str, $from, $pos + 1)) == -1 and return $str while $x
+--;
  eval "substr(\$str, $pos) =~ tr/\Q$from\E/\Q$to\E/";
  $str;
}

    [download]
       MeowChow                                   
               s aamecha.s a..a\u$&owag.print
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://81893]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2024-04-26 09:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found