Wie ersetzt man Text unter Beibehaltung der Großschreibung?

Question

Angenommen, ich möchte eine Datei mit folgendem Inhalt durch eine Zeichenfolge ersetzen

name
nAmE
naMEbb
NAME

Und wollte das Wort "Name" durch "dave" ersetzen, aber die Großschreibung des Originaltextes beibehalten. Meine gewünschte Ausgabe wäre zum Beispiel,

dave
dAvE
daVEbb
DAVE

Gibt es irgendwelche Einzeiler, dies zu tun (vorzugsweise in Perl, so dass ich eine In-Place-Ersetzung über viele Dateien tun kann)?

EDIT Das Problem ist zweideutig, es sei denn, beide Zeichenketten haben genau die gleiche Länge. Nehmen wir an, das ist der Fall.

Answer 1

Es gibt einige Lösungen auf perlFaq: http://perldoc.perl.org/perlfaq6.html#How-do-I-substitute-case-insensitively-on-the-LHS-while-preserving-case-on-the-RHS ?

Eine der dort vorgestellten Lösungen ermöglicht es, die Ersetzung in einer einzigen Zeile durchzuführen, indem ein Unterprogramm (preserve_case) definiert wird:

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

Dies wird ausgedruckt: dies ist ein SUcCESS-Fall

Answer 2

Es ist verrückt, aber es funktioniert:

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";'

eine Lösung in einer Zeile!

Answer 3

Ich frage mich, ob das Beispiel aus perlfaq für Nicht-ASCII funktioniert. Eine Variante, die den XOR-Hack nicht verwendet, könnte sein:

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

Dies funktioniert jedoch nur, wenn die /i Modifikator lokal aktiviert ist (siehe perllocale).