Foro - Perl en Español

por **jairo15** » 2016-10-11 18:01 @792

Tengo problemas con este código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use warnings;
use Math::Round;
 
my $seed = time();
my $a    = $seed / 5;
my $c    = $seed - 7;
my $x    = $seed;
my $m    = $seed % 12244;
my $numAleatorio;
 
sub generadorMultiplicativo {
    $numAleatorio = ( ( ( $a * $x ) + $c ) % $m );
    $x = $numAleatorio;
}
 
for my $i ( 1 .. 15 ) {
    generadorMultiplicativo();
    my $residuo = $x / $m;
 
    if ( $residuo < 0.0384615384615385 ) {
        my $letra = 'A';
    }
    else ( $residuo > 0.0384615384615385 && $residuo < 0.076923076923077 ) {
        $letra = 'B';
    }
    else ( $residuo > 0.076923076923077 && $residuo < 0.1153846153846154 ) {
        $letra = 'C';
    }
    else ( $residuo > 0.1153846153846154 && $residuo < 0.1538461538461538 ) {
        $letra = 'D';
    }
    else ( $residuo > 0.1538461538461538 && $residuo < 0.1923076923076923 ) {
        $letra = 'E';
    }
    else ( $residuo > 0.1923076923076923 && $residuo < 0.2307692307692308 ) {
        $letra = 'F';
    }
    else ( $residuo > 0.2307692307692308 && $residuo < 0.2692307692307692 ) {
        $letra = 'G';
    }
    else ( $residuo > 0.2692307692307692 && $residuo < 0.3076923076923077 ) {
        $letra = 'H';
    }
    else ( $residuo > 0.3076923076923077 ) {
        $letra = 'I';
    }
    print "$letra\n" );
 
}
<>;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Aun no está terminado, faltan las demás letras, pero el problema es que ejecuto el programa y se cierra. Ya intenté poniendo if en lugar de else, pero da igual.

Hay un error en el código... sobra un paréntesis, en el último print.

Si ejecutas el programa con la opción -c, Perl compilará el programa, y te avisará de este tipo de errores:

perl -c programa.pl

Por ejemplo, te avisará que la variable $letra está declarada en el contexto de las líneas 20 a 22, pero que no se utiliza nunca. Esa variable muere en la línea 22.

Si pusieras 'use strict;' al principio del programa, te saldrían avisos de que estás usando variables $letra en las líneas 24, 27, 30, 33... sin haberlas declarado. Estos dos errores indican que estás declaran mal $letra (en mal lugar).

por **MARKO** » 2016-10-12 16:29 @728

Debes recordar que el if-else se usa solo si tienes una opción y nada más, si tienes más opciones debes usar elsif.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
if (opcion 1){
   accion 1
}
elsif (opcion 2){
   accion 2
}
elsif (opcion 3){
   accion 3
}
.
.
.
elsif (opcion n){
   accion n
}
else{ ###### no se cumple ninguna de las opciones anteriores
   accion
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Éxitos.

Foro - Perl en Español

If-else

If-else

Publicidad

Re: If-else

Re: If-else

¿Quién está conectado?