Foro - Perl en Español

Gracias por su ayuda, me sirvió un montón. ¿Y si quiero usar la función length() para contar los caracteres de una oración, pero sin considerar los espacios en blanco? Así, por ejemplo:


Uso lenght() y para que no cuente "\n" uso chomp() o chop(), pero para que no cuente los espacios en blanco, ¿¿puedo usar la función substr()??

Sí puedes usar la función substr.

Tienes que hacer un bucle por toda la cadena de caracteres, encontrar los blancos, y quitarlos.
Aunque, desde luego, lo más sencillo es simplemente, contarlos:
Otra forma sería utilizar las funciones de traducción, como la tr///:
Y, finalmente, usar la función de sustitución, s///:
Con estas últimas opciones quitarías los blancos, pero si sólo quieres contarlos, te vale con la segunda solución, o, un truco como este: traducir todos los blancos por blancos y saber cuántas veces lo hemos hecho. A la longitud total de la cadena, le restamos ese valor, y tendremos la longitud menos lo que ocupan los blancos:

Solamente un pequeño cambio en la exp. reg.

SALUDOS

He corregido dos fallos de las dos primeras soluciones.

En la primera hay que agregar un redo, ya que, al quitar el espacio en blanco, la longitud de la cadena cambia y, si dejamos que el bucle for continúe, hará que el índice $i apunte en realidad a dos caracteres más allá del último test. El redo reiniciará el bucle en donde estamos, con el mismo valor de $i, con lo que estaremos haciendo la búsqueda del espacio en blanco en el siguiente carácter al que hemos quitado.

En el segundo había otro error. Era 'ne' en lugar de 'eq' en la comparación.

Usar length() forzosamente para algo tan trivial como eso no tiene sentido.

Saludos,

Perl user escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. #!/usr/bin/perl
2.  
3. use strict;
4. use warnings;
5.  
6. my $str = "Esta es una prueba de texto";
7. my $cnt = () = $str =~ /\w/g;
8. print $cnt; #22

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Usar length forzosamente para algo tan trivial como eso no tiene sentido.

Saludos,

Bueno... porque estamos en el foro Básico... por eso le damos a Juan todas las combinaciones básicas que se nos ocurren... y length() es lo básico para sacar longitudes de cadenas.

Si estuviéramos en otro foro, haríamos cosas como esta:

Hola, el único problema que veo con la solución es que debido a que estamos en el idioma español me imagino que por ahí van a haber letras con acentos, por ejemplo:

Entonces se me ocurre atacar el problema desde otro punto de vista, que encuentre todo lo que NO sea espacio:

Y pues llegamos a la solución del problema original, contar todo de la oración que NO sea espacio.


SALUDOS

explorer39 escribiste:Bueno... porque estamos en el foro Básico... por eso le damos a Juan todas las combinaciones básicas que se nos ocurren... y length es lo básico para sacar longitudes de cadenas.
Si estuviéramos en otro foro, haríamos cosas como esta:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using bash Syntax Highlighting

1. perl -le 'print"Esta es una prueba de texto"=~y/ //c'

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

:-)

Pero no hablo de buscar soluciones complejas, hablo simplemente de que length() se hizo para su objetivo, y calcular la cantidad de caracteres en una palabra ignorando espacios NO suena a un trabajo propio para length.

Nota: Enseñar técnicas y correcta utilización del lenguaje en un foro de principiantes tiene mucha más validez que enseñarlas a alguien con conocimientos arriba de las bases del lenguaje.

kidd escribiste:Entonces se me ocurre atacar el problema desde otro punto de vista, que encuentre todo lo que NO sea espacio:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. my $str = "Esto es una esdrújula";
2. my $cnt = () = $str =~ /[^ ]/g;
3. print $cnt; # ¡YEY! 18

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Y pues llegamos a la solución del problema original, contar todo de la oración que NO sea espacio.

Bueno en realidad, si vamos a caracteres extraños, entonces estas ignorando que realmente los acentos hayan sido puestos con una distribución ASCII ( ISO-8859-1 o latin-1 o latin-15 ), o bien UTF-8, para UTF8 tu información podría ser errónea, por lo tanto tendrías que adoptar una exp. reg. que juegue con un patrón Unicode:


Aquí pues, nuevamente mi punto fue inicialmente demostrar que intentar clavar cosas con un desarmador es complicado, de esta manera usar length() para algo tan trivial como es este ejemplo es ignorar las demás herramientas que te proporciona el lenguaje.

Saludos,

Perl user escribiste:Pero no hablo de buscar soluciones complejas, hablo simplemente de que length se hizo para su objetivo, y calcular la cantidad de caracteres en una palabra ignorando espacios suena a NO un trabajo propio para length.

¡Cierto!

¿Te has dado cuenta, Juan, de la versatilidad de este lenguaje que permite hacer lo mismo de diez (y más) formas distintas?

Perl user escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. #!/usr/bin/perl
2.  
3. use strict;
4. use warnings;
5.  
6. my $str = "Esta es una prueba de texto";
7. my $cnt = () = $str =~ /\w/g;
8. print $cnt; #22

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Usar length forzosamente para algo tan trivial como eso no tiene sentido.

Después de leer varios mensajes, me gustaría que me explicaran la línea

my $cnt = () = $str =~ /\w/g;

Bueno, lo que realmente se escapa de mis conocimientos y no entiendo son los paréntesis

Un saludo y gracias