Re: Regex: Case insensitive search but case sensitive replace

Anonymous Monk,
The answer is yes, but you probably want something for the general case as well as this specific case.

#!/usr/bin/perl -w
use strict;

my $string = 'John is following jane';

# Specific 
$string =~ s/[jJ]ane/##Jane##/;

# To preserve j or J in replacement
# $string =~ s/([jJ]ane)/##$1##/;

# More generic
# $string =~ s/(John is following) (\w+)/$1 \u$2/;
[download]

Cheers - L~R

Comment on Re: Regex: Case insensitive search but case sensitive replace Download Code

Replies are listed 'Best First'.
Re: Re: Regex: Case insensitive search but case sensitive replace by Anonymous Monk on Nov 17, 2003 at 10:36 UTC
Thx L~r ! But the generic version would replace both 'jane' & 'Jane' with 'Jane'. I'm looking for a way to search insensitive but the replace should keep the case of the word/text ... Thx again !	[reply]
Re: Re: Re: Regex: Case insensitive search but case sensitive replace by Limbic~Region (Chancellor) on Nov 17, 2003 at 10:40 UTC
Anonymous Monk, I provided 3 examples because you were not exactly clear what your definition of "case insensitive" and "case sensitive" was in your post. The second example is closest to what you mean, but you might have also meant: `$string =~ s/(jane)/##$1##/i;` [download] This would allow any letters to be any case, but be preserved in the replacement. Cheers - L~R	[reply] [d/l]
Re: Re: Re: Re: Regex: Case insensitive search but case sensitive replace by Anonymous Monk on Nov 17, 2003 at 10:44 UTC
Perfect ! That was the regex i was looking for :-) Guess i should use my brain next time and first read 'perlre' ;-) Thank you all very much !!	[reply]


Perl Monk, Perl Meditation
	PerlMonks