Cómo reemplazar texto mientras se mantienen las mayúsculas?

Question

dicho que quiera sustituir a una cadena en un archivo con el siguiente contenido

name 
nAmE 
naMEbb 
NAME 

y quiso reemplazar el "nombre" con la palabra "Dave", pero manteniendo la capitalización del texto original. Por ejemplo, mi salida deseada sería,

dave 
dAvE 
daVEbb 
DAVE 

¿Hay una sola línea de hacer esto (preferiblemente en Perl para poder hacer una sustitución en el lugar a través de muchos archivos)?

EDIT El problema es ambiguo a menos que ambas cadenas tengan exactamente la misma longitud. Supongamos que sí.

Answer 1

Existen algunas soluciones en perlFaq: http://perldoc.perl.org/perlfaq6.html#How-do-I-substitute-case-insensitively-on-the-LHS-while-preserving-case-on-the-RHS?

Una de las soluciones presentadas no permite llevar a cabo la sustitución de una sola línea, mediante la definición de una subrutina (preserve_case):

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

Esta impresora: este es un caso de éxito

Answer 2

Es una locura pero obras:

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

una solución de línea!

Answer 3

Me pregunto si el ejemplo de perlfaq funciona para no-ASCII. Una variante que no utiliza el hack XOR podría ser:

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

Pero esto sólo funciona si el modificador /i es permitido la configuración regional (ver perllocale).