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.
-
- Publicidad
Convertir mayúsculas después de punto
3 mensajes
• Página 1 de 1
Convertir mayúsculas después de punto
por sisifo80 » 2014-01-02 07:39 @360
- sisifo80
- Perlero nuevo
- Mensajes: 32
- Registrado: 2013-11-20 07:30 @354
Publicidad
Re: Convertir mayúsculas después de punto
por explorer » 2014-01-02 08:08 @380
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:
Prueba:
Using bash Syntax Highlighting
- > perl -CAS -E 'use utf8; $x = "Ñandú"; $x =~ tr/A-Z/a-z/; say $x'
- Ñandú
- > perl -CAS -E 'use utf8; $x = "Ñandú"; $x = lc $x; say $x'
- ñandú
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Quedaría así:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use autodie;
- open my $F, shift;
- while (<$F>) {
- s/\.\s\K(\w)/lc($1)/ge;
- print;
- }
- close $F;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
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:
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Convertir mayúsculas después de punto
por sisifo80 » 2014-01-02 08:16 @386
¡¡Mil gracias!! Por la solución y por la explicación. Me quedó muy claro.
- sisifo80
- Perlero nuevo
- Mensajes: 32
- Registrado: 2013-11-20 07:30 @354
3 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 15 invitados