Espacio en un string
Publicado: 2016-10-06 13:07 @588
¿Cómo se pueden quitar [] que estén vacíos en el siguiente código?:
Lo que hace el programa es agarrar palabras de un .txt para separarlas e imprimir letra por letra dentro de '[]', pero al ser frases tienen espacio(s). Lo que quiero es saber cómo quitar los corchetes que no tienen una letra. En el código anterior usé el chr(32) porque en ASCII es un espacio pero sigue sin funcionar.
Using perl Syntax Highlighting
- use selectorFrases;
- use separadorFrases;
- open( my $ARCHIVO, '<', "frases.txt" )
- or die "No se encontro ese archivo";
- my $frase = $palabraAleatoria;
- my $longitudPalabra = length($frase) - 1;
- for my $i ( 1 .. $longitudPalabra ) {
- if ( $palabra[$i] =~ /\s/ ) {
- print "chr(32)";
- }
- }
- for ( split //, $frase ) {
- print "[$_]";
- }
- print "\n";
- <>;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Lo que hace el programa es agarrar palabras de un .txt para separarlas e imprimir letra por letra dentro de '[]', pero al ser frases tienen espacio(s). Lo que quiero es saber cómo quitar los corchetes que no tienen una letra. En el código anterior usé el chr(32) porque en ASCII es un espacio pero sigue sin funcionar.