Foro - Perl en Español

por **BigBear** » 2011-02-03 12:37 @567

Hola.

Ando queriendo hacer un script que use una frase para separarla letra por letra para guardar cada letra en un array.

Ejemplo

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

hola a todosColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y el array guarde

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@letras("h","o","l","a"," ","a"," ","t","o","d","o","s");Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Reconociendo espacios.

¿ Alguien me puede ayudar ?

use strict;
my $string = "Hola a | todos";
my @intro = split //,$string;
my $ele;
foreach  $ele(@intro){
      if ($ele eq "|") {print "con | : $ele\n";}
      elsif ($ele eq "/") {print "con / : $ele\n";}
      else {print "$ele \n";}
      }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Que me da la salida siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

H 

o 

l 

a 

a 

con | : |

t 

o 

d 

o 

s Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **pvaldes** » 2011-02-03 15:46 @698

> ¿Cómo puedo hacer para que solo muestra una letra, entonces, si detecta un signo pasa a letra siguiente?

Ese es un enfoque distinto

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
my $string = "Hola +a -todos";
my @intro = split //,$string;
my @intro = grep (/[a-zA-Z]/, @intro);
foreach  $ele(@intro){print "$ele\n";}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Leo_Gutierrez** » 2011-02-03 21:37 @942

Puedes usar "next" para pasar a la próxima iteración:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $s = "Hola | a | todos";
for(split(//,  $s))
{
        next if(/[^a-zA-Z]/);
        print;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

o algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $s = "Hola | a | todos";
for(split(//,  $s))
{
        print if(/[a-zA-Z]/);
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ojalá y sea lo que quieras, no he entendido bien la semántica de tu pregunta.

Foro - Perl en Español

Separar una frase para usar en array

Separar una frase para usar en array

Publicidad

Re: Separar una frase para usar en array

Re: Separar una frase para usar en array

Re: Separar una frase para usar en array

Re: Separar una frase para usar en array

Re: Separar una frase para usar en array

¿Quién está conectado?