Büyük Harf Devam ederken Metni Nasıl Değiştirilir?

Question

aşağıdaki içerikleri

name 
nAmE 
naMEbb 
NAME 

ile bir dosya üzerinde yerini bir dize istedim Say Ve "dave" ile kelime "ad" yerine istedi ama orijinal metnin büyük harf tutuyor. Örneğin benim istenen çıkış olurdu

dave 
dAvE 
daVEbb 
DAVE 

bunu yapmak için herhangi bir astarları (tercihen Perl yüzden birçok dosya arasında bir yerinde ikame yapabilir) var mı?

EDIT Sorun, her iki dizenin tam olarak aynı uzunlukta olmadıkça belirsizdir. Yapacağını varsayalım.

Answer 1

PerlFaq: http://perldoc.perl.org/perlfaq6.html#How-do-I-substitute-case-insensitively-on-the-LHS-while-preserving-case-on-the-RHS'da bazı çözümler var mı?

$string = "this is a TEsT case"; 
    $string =~ s/(test)/preserve_case($1, "success")/egi; 
    print "$string\n"; 

Bu baskılar: çözümlerin

Bir alt yordam (preserve_case) tanımlayarak, tek çizgide değişikliği yapmak üzere orada verir sunulan bu bir başarı dava

Answer 2

Bu çılgınlık ama o çalışır:

perl -e 'use List::MoreUtils "pairwise"; $_ = "toto naME nAmE"; s/(name)/@x = map(ord, split "", "DAVE"); @y = map(ord>=97?32:0, split "", $1); @c = map chr, pairwise { $a + $b } @x, @y; $" = ""; "@c";/gei; print "$_\n";' 

tek satırlık çözüm!

Answer 3

Perlfaq örneğinin ASCII olmayanlar için çalışıp çalışmadığını merak ediyorum. XOR kesmek kullanmaz bir varyantı olabilir:

$text =~ s{$str_to_replace}{my $i=0;join "",map {substr($&,$i++,1)=~/\p{IsLower}/?lc:uc} split //,$str_to_substitute}ieg; 

Ama bu sadece çalışır /i değiştirici yerel özellikli (perllocale bakınız) ise.