Foro - Perl en Español

Hola,

Necesitaba convertir todas las mayúsculas después de un punto a minúsculas. Sé que para convertir todas las mayúsculas a minúsculas se podría hacer así:

open F, shift;
while (<F>) {
$_ =~ tr/[A-Z]/[a-z]/;
print;
}
close F;

Pero, ¿cómo puedo hacer para convertir solo las mayúsculas que van después de punto? Intenté algo como lo siguiente:

open F, shift;
while (<F>) {
if (/\.\s([A-Z])/) {
$1 =~ tr/[A-Z]/[a-z]/};
print;
}
close F;

Es decir: si tengo un punto (.), un espacio (\s) y una mayúscula ([A-Z]) conviérteme la mayúscula en minúscula. Pero parece ser que esta opción es incorrecta...

¿Alguna sugerencia? Gracias.

Para convertir mayúsculas a minúsculas, es mejor usar la función lc() (lowercase), o lcfirst() (lowercase first char), ya que tiene en cuenta la localización en la que estamos trabajando. Si usas [A-Z], te estás olvidando del caso de la 'Ñ'


Quedaría así:

La expresión regular quiere decir: aplicar a $_, ya que es la variable por defecto, la operación de sustitución de un patrón por la ejecución (/e) de un trozo de código Perl (lc($1)), a lo largo de toda la variable (/g).

El patrón es:

• buscamos un punto seguido por un espacio en blanco y seguido por un carácter alfanumérico (\w)
• si encontramos ese patrón, nos olvidamos del punto y del espacio (\K),
• y nos quedamos (capturamos) el carácter alfanumérico, con la ayuda de los paréntesis

Prueba:

¡¡Mil gracias!! Por la solución y por la explicación. Me quedó muy claro.