Foro - Perl en Español

por **jairo15** » 2016-10-12 08:33 @398

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
use genLetras;
 
for my $i ( 1 .. 30 ) {
    for my $j ( 1 .. 30 ) {
        generarLetra();
        $matriz[$i][$j] = $letra;
    }
}
 
for my $i ( 1 .. 30 ) {
    for my $j ( 1 .. 30 ) {
        print "[$matriz[$i][$j]] ";
    }
    print "\n";
}
 
<>;
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

No me funciona el programa. Al ejecutarlo como perl -c dice que falta instalar ese módulo (genLetras.pm), el cual tengo en la misma carpeta que el ejecutable.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
use Math::Complex;
 
my $seed = time();
my $a    = $seed / 5;
my $c    = $seed - 7;
my $x    = $seed;
my $m    = sqrt( $seed % 574 ) + $seed;
my $numAleatorio;
 
sub generadorMultiplicativo {
    $numAleatorio = ( ( ( $a * $x ) + $c ) % $m );
    $x = $numAleatorio;
}
my $letra;
my $residuo;
 
sub generarLetra {
    for my $i ( 1 .. 30 ) {
        generadorMultiplicativo();
        $residuo = $x / $m;
 
        if ( $residuo < 0.0384615384615385 ) {
            $letra = 'A';
        }
        if ( $residuo > 0.0384615384615385 && $residuo < 0.076923076923077 ) {
            $letra = 'B';
        }
        if ( $residuo > 0.076923076923077 && $residuo < 0.1153846153846154 ) {
            $letra = 'C';
        }
        if ( $residuo > 0.1153846153846154 && $residuo < 0.1538461538461538 ) {
            $letra = 'D';
        }
        if ( $residuo > 0.1538461538461538 && $residuo < 0.1923076923076923 ) {
            $letra = 'E';
        }
        if ( $residuo > 0.1923076923076923 && $residuo < 0.2307692307692308 ) {
            $letra = 'F';
        }
        if ( $residuo > 0.2307692307692308 && $residuo < 0.2692307692307692 ) {
            $letra = 'G';
        }
        if ( $residuo > 0.2692307692307692 && $residuo < 0.3076923076923077 ) {
            $letra = 'H';
        }
        if ( $residuo > 0.3076923076923077 && $residuo < 0.3461538461538462 ) {
            $letra = 'I';
        }
        if ( $residuo > 0.3461538461538462 && $residuo < 0.3846153846153846 ) {
            $letra = 'J';
        }
        if ( $residuo > 0.3846153846153846 && $residuo < 0.4230769230769231 ) {
            $letra = 'K';
        }
        if ( $residuo > 0.4230769230769231 && $residuo < 0.4615384615384615 ) {
            $letra = 'L';
        }
        if ( $residuo > 0.4615384615384615 && $residuo < 0.5 ) {
            $letra = 'M';
        }
        if ( $residuo > 0.4615384615384615 && $residuo < 0.5384615384615385 ) {
            $letra = 'N';
        }
        if ( $residuo > 0.5384615384615385 && $residuo < 0.5769230769230769 ) {
            $letra = 'O';
        }
        if ( $residuo > 0.5769230769230769 && $residuo < 0.6153846153846154 ) {
            $letra = 'P';
        }
        if ( $residuo > 0.6153846153846154 && $residuo < 0.6538461538461538 ) {
            $letra = 'Q';
        }
        if ( $residuo > 0.6538461538461538 && $residuo < 0.6923076923076923 ) {
            $letra = 'R';
        }
        if ( $residuo > 0.6923076923076923 && $residuo < 0.7307692307692308 ) {
            $letra = 'S';
        }
        if ( $residuo > 0.7307692307692308 && $residuo < 0.7692307692307692 ) {
            $letra = 'T';
        }
        if ( $residuo > 0.7692307692307692 && $residuo < 0.8076923076923077 ) {
            $letra = 'U';
        }
        if ( $residuo > 0.8076923076923077 && $residuo < 0.8461538461538462 ) {
            $letra = 'V';
        }
        if ( $residuo > 0.8461538461538462 && $residuo < 0.8846153846153846 ) {
            $letra = 'W';
        }
        if ( $residuo > 0.8846153846153846 && $residuo < 0.9230769230769231 ) {
            $letra = 'X';
        }
        if ( $residuo > 0.9230769230769231 && $residuo < 0.9615384615384615 ) {
            $letra = 'Y';
        }
        if ( $residuo > 0.9615384615384615 && $residuo < 1 ) {
            $letra = 'Z';
        }
 
    }
}
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Humm...

Si el error dice que no encuentra el módulo, que estará al mismo nivel que el programa, es posible que @INC no tenga preinstalado la ruta actual como ruta a buscar.

Ejecuta

perl -V

y nos copias la última parte, la que dice @INC, y siguientes líneas. Si la última línea es un '.', entonces es que está bien.

Otra cosa... la subrutina generarLetra(), realmente no devuelve nada. No hay un return. Y la variable $letra que está en el programa principal no tiene nada que ver con la $letra que está en el módulo (está declarada con my()).

Casi mejor si generarLetra() termina con un return, y cambias las líneas 10 y 11 del programa por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                        $matriz[$i][$j] = genLetras::generarLetra();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra cosa más. El montón de líneas que hay en generarLetra() se puede reducir a:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub generarLetra {
    my @letras = 'A'..'Z';
 
    for my $i ( 1 .. 30 ) {             # no sabemos por qué está este bucle
        generadorMultiplicativo();
 
        $residuo = $x / $m;
 
        $letra = $letras[ $residuo * @letras ];
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **jairo15** » 2016-10-12 17:02 @751

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

@INC:

    C:/Perl64/site/lib

    C:/Perl64/lib

    .Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sigue estando igual.
Ya le añadí el return.

por **explorer** » 2016-10-12 23:09 @006

Pues es muy raro. La presencia del '.' indica que va a buscar el módulo en el mismo directorio donde se encuentre el programa.

Comprueba que se llama genLetras.pm (respetando las mayúsculas y minúsculas, que es importante).

Si está bien, prueba a añadir arriba

use lib 'directorio-donde-está-mi-módulo';

antes de tu 'use'.

por **jairo15** » 2016-10-13 12:06 @546

No, sigue igual

ambos programas los ejecuto con perl -V y perl -c y no muestra errores.

por **explorer** » 2016-10-13 14:51 @660

Hummm... vamos a descontar cosas obvias...

Un módulo debe terminar con un valor positivo.

Asegúrate que hay un

1;

al final del módulo.

por **jairo15** » 2016-10-13 15:10 @673

Gracias por la ayuda, ese problema quedó resuelto, pero con el siguiente código imprime

use f unintialized value in concatenation (.) or string at line 18:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use warnings;
use FindBin;
use lib $FindBin::Bin;
use GenLetras;
my @matriz;
 
 
 
for my $k (1 .. 30 ) {
            for my $j (1 .. 30 ) {
                        GenLetras::generarLetra();
                        $matriz[$k][$j] = GenLetras::generarLetra();
       }
 }
 
for  $k (1 .. 30 ) {
            for  $j (1 .. 30 ) {
                         print "$matriz[$k][$j] ";
    }
    print "\n";
}
 
<>;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sé que es porque no se le está ingresando valores a la matriz, y no sé por qué.

por **explorer** » 2016-10-13 16:03 @710

Seguramente porque GenLetras::generarLetra() no está devolviendo nada.

(¿Y por qué lo llamas dos veces?)

¿Pusiste un return con el valor que quieres devolver dentro de generarLetra()?

Más información en tu propio ordenador en perldoc perlsub, y en la Web (traducido al español).

Más información en tu propio ordenador en perldoc perlmod, y en la Web (traducido al español). (Ir a la sección Módulos Perl).

por **jairo15** » 2016-10-13 16:19 @721

Muchas gracias, el problema es que en el módulo estaba escribiendo return; en lugar de return $letra;

Foro - Perl en Español

Problema con use

Problema con use

Publicidad

Re: Problema con use

Re: Problema con use

Re: Problema con use

Re: Problema con use

Re: Problema con use

Re: Problema con use

Re: Problema con use

Re: Problema con use

¿Quién está conectado?