Replace multiple characters with multiple characters

Dev Shed Forums Sponsor:

May 22nd, 2009, 05:32 PM

patrickgilmour@

Registered User

Join Date: Sep 2006

Posts: 17

Time spent in forums: 3 h 8 m 23 sec
Reputation Power: 0

Replace multiple characters with multiple characters

Hi,

I have various strings in a document of the type:

~,~
~,,,,,,~
~,,,~

And I need to replace them to get:
~x~
~xxxxxx~
~xxx~

The only criterion is that it only affects , characters that are between two ~

I've got (~)(,+)(~) to find all the comas I need.

I can get it to replace ~,~ with ~x~ but when there are multiple comas it only replacing with one ,

So ~,,,,,,~ becomes ~x~

Any idea how to get multiple replacements like this?

Many thanks,

Pat

May 22nd, 2009, 05:59 PM

OmegaZero

Contributing User

Join Date: May 2007

Posts: 738

Time spent in forums: 3 Weeks 5 Days 6 h 8 m 21 sec
Reputation Power: 928

This thread from the perl forum might be helpful

__________________
sub{*{$::{$_}}{CODE}==$_[0]&& print for(%:: )}->(\&Meh);

May 24th, 2009, 10:00 AM

chorny_cpan

Contributing User

Join Date: May 2009

Posts: 159

Time spent in forums: 1 Day 1 h 51 m 20 sec
Reputation Power: 207

With tests:

Code:

#!/usr/bin/perl

use 5.006;
use strict;
use warnings;
use Test::More qw(no_plan);

#Replace all ',' in strings like ~,+~ with x
sub replace {
  my $str=shift;
  $str=~s/~(,+)~/'~'.('x' x length($1)).'~'/ge;
  return $str;
}

is(replace('~,~'),'~x~');
is(replace('~,,,,~'),'~xxxx~');
is(replace('~~ ,'),'~~ ,');

You should be able to convert this to any language that supports callbacks in regexes.

May 24th, 2009, 03:27 PM

patrickgilmour@

Registered User

Join Date: Sep 2006

Posts: 17

Time spent in forums: 3 h 8 m 23 sec
Reputation Power: 0

Wow! Thanks for the help on this guys! Really appreciated.

P

Quote:

Originally Posted by chorny_cpan

With tests:

Code:

#!/usr/bin/perl

use 5.006;
use strict;
use warnings;
use Test::More qw(no_plan);

#Replace all ',' in strings like ~,+~ with x
sub replace {
  my $str=shift;
  $str=~s/~(,+)~/'~'.('x' x length($1)).'~'/ge;
  return $str;
}

is(replace('~,~'),'~x~');
is(replace('~,,,,~'),'~xxxx~');
is(replace('~~ ,'),'~~ ,');

You should be able to convert this to any language that supports callbacks in regexes.

Viewing: Dev Shed Forums > Programming Languages - More > Regex Programming > Replace multiple characters with multiple characters

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump