Foro - Perl en Español

por **alesevimor** » 2012-02-14 10:29 @478

Hola, mira, este ejercicio está hecho prácticamente. Lo que hace es ir recogiendo las líneas y las muestra, pero cuando hago ctrl+d me pregunta que si quiero continuar, si le digo que sí debe entrar en el bucle pero si le digo que no debe salir de la ejecución. ¿Qué me falta?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$contador=0;
print "Introduce palabras y pulsa intro para el salto de línea, cuando quieras finalizar pulsa ctrl+d\n";
@contenido=<STDIN>;
foreach $valores (@contenido)
        {
        $contador++;
        print "$contador: $valores";
        }
print "¿Desea continuar?si/no  -";
$respuesta=<STDIN>;
if ($respuesta == "no")
                {
                print "FIN \n";
                break;
                }
while ($respuesta=="si")
        {
        print "Continuamos\n";
        @contenido=<STDIN>;
        foreach $valores (@contenido)
                {
                $contador++;
                print "$contador: $valores";
                }
        print "¿Desea continuar?si/no  -";
        $respuesta=<STDIN>;
                if ($respuesta == "no")
                {
                print "FIN \n";
                break;
                }
        }
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Las líneas 3 a 15 están repetidas en las líneas 19 a 31... así que no está bien pensada la solución
break; solo existe a partir de Perl v5.10, y solo se usa dentro de una estructura given/when. Más información en perldoc perlsyn, sección Switch statements (traducido, sección Instrucciones Switch)
El operador de igualdad '==' solo sirve para comparaciones numéricas

Si quieres saber si un programa está bien escrito, Perl puede ayudarte, si ejecutas el programa así:

perl -c tu_programa.pl

pero solo te avisará de fallos sintácticos leves.

por **alesevimor** » 2012-02-14 14:34 @648

Con este script me funciona perfectamente. El único problema es lo que me has dicho del operador "==". Como bien dices con numéricos como he puesto en este script, funciona, pero con string no, ¿cómo hago para que funcione con string?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$contador=0;
$afirmativo="1";
$negativo="2";
print "Introduce palabras y pulsa intro para el salto de línea, cuando quieras finalizar pulsa ctrl+d\n";
        @contenido=<STDIN>;
        foreach $valores (@contenido)
                {
                $contador++;
                print "$contador: $valores";
                }
        print "¿Desea continuar? si/no  -";
        $respuesta=<STDIN>;
        if ($respuesta == $negativo)
                        {
                        print "Adiós desde la primera ejecución\n";   
                        break;
                        }
        while ($respuesta == $afirmativo)
                {
                print "Continuamos\n";
                @contenido=<STDIN>;
                foreach $valores (@contenido)
                        {
                        $contador++;
                        print "$contador: $valores";
                        }
                print "¿Desea continuar?si/no  -";
                $respuesta=<STDIN>;
                        if ($respuesta == $negativo)
                                {
                                print "Adiós desde el bucle\n";
                                }
                }
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-02-14 15:59 @707

Les tienes en perlsyn, sección Equality Operators (traducido, sección Operadores de igualdad)

por **alesevimor** » 2012-02-14 19:51 @868

Sí, entiendo, el operador "eq" sirve para las igualdades con string pero cuando lo utilizo no me sale. Mira este script tan sencillo y no me sale.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "¿Cual es tu nombre?\n";
$respuesta=<STDIN>;
if ($respuesta eq "Alejandro")# ¿Esta línea esta bien escrita, no?
        {
        print "El nombre elegido no es alejandro\n";
        }
else
        {
        print "NADA";
        }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-02-14 20:01 @876

$respuesta está almacenando lo que ha leído por el teclado, y lo que ha leído es "Alejandro", más el carácter (o caracteres) de fin de línea, pues pulsaste la tecla Intro (o Enter o Entrar), y esa última pulsación también se envía al programa.

De lo que leas desde la entrada estándar, deberías quitarle esos caracteres de fin de línea.

En Perl, eso se hace con chomp().

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "¿Cuál es tu nombre?\n";
$respuesta = <STDIN>;
chomp($respuesta);               # quitar carácter fin de línea
if ( $respuesta eq "Alejandro" ) {
    print "El nombre elegido es Alejandro\n";
}
else {
    print "NADA\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **alesevimor** » 2012-02-15 09:24 @433

Ante todo, gracias. El de antes ya está terminado. Ahora tengo que hacerlo mediante una función que es la que se encarga de la tarea de "Desea continuar". He hecho esto pero no me funciona.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub pregunta
                {
                        print "¿Desea continuar?";
                        $respuesta=<STDIN>;
                        chomp($respuesta);
                        if ($respuesta ne "si")
                        {
                                print "Programa terminado\n";
                                break;
                        }
                }
 
while(true)
        {
        $contador=0;
        while ($respuesta eq "si")
                {
                @contenido=<STDIN>;
                foreach $valores (@contenido)
                        {
                        $contador++;
                        print "$contador: $valores";
                        }
                }
        pregunta
        }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **alesevimor** » 2012-02-15 10:04 @461

Ya lo he resuelto. Gracias de todos modos. Era problema del primer while() y $respuesta=si;, al principio.

Foro - Perl en Español

Ejercicio que recoge los datos por parámetros y los muestra

Ejercicio que recoge los datos por parámetros y los muestra

Publicidad

Re: Ejercicio que recoge los datos por parámetros y los mues

Re: Ejercicio que recoge los datos por parámetros y los mues

Re: Ejercicio que recoge los datos por parámetros y los mues

Re: Ejercicio que recoge los datos por parámetros y los mues

Re: Ejercicio que recoge los datos por parámetros y los mues

Re: Ejercicio que recoge los datos por parámetros y los mues

Re: Ejercicio que recoge los datos por parámetros y los mues

¿Quién está conectado?