Foro - Perl en Español

por **Sismetic** » 2009-09-17 09:49 @450

Hola a todos. Necesito ayuda con un módulo que hice y lo exporté, pero en otro programa en el que lo uso, me dice que una función no está declarada, pero si dentro de la función le pongo print(), sí me lo imprime, está medio raro. Gracias de antemano, aquí les va el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package Monsters;
 
use strict;
use Exporter;
 
our @ISA= qw(Exporter);
our @Export = qw(Get_Monster Rand_Monster Data_Monster Monster);
sub Get_Monster{
 
   open my $FILE, '<', 'mon.txt' or die $!;
   next if !$FILE;
   my @monsters = <$FILE>;
   return @monsters;
 
}
 
sub Rand_Monster{
 
    my @monsters = Get_Monster();
    my $rand = int(rand(@monsters));
    my $random_monster = $monsters[$rand];
    return $random_monster;
 
}
 
sub Data_Monster{
 
    my $monster = Rand_Monster();
    my @monster_data = split(',', $monster);
}
 
sub Monster{
 
    my @data = Data_Monster();
    #Entonces aca deberia poner return @data?
}
Monster();
# Y este Monster() es para que ejecute la funcion Monster, que ejecuta Data_Monster que ejecuta Rand_Monster que ejecuta Get_Monster, porque segun yo si pones las funciones nada mas la declaras pero no la ejecuta, eso lo hize nada mas para probar que todo estaba bien
 
#Y si tengo otro script que es el usa el modulo, va algo asi 
 
use Monsters;
 
my @monstruo = Monster()
 
#Lo raro es que en la parte donde te pone el warning, si le pongo print en la funcion de adentro del modulo, me pone el nombre del monstruo su vida y su ataque(como esperaba), pero si se lo quito e imprimo @monstruo, me dice que Monster() no esta declarada, seguro que es un error mio, pero no lo pesco :S
 
1;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Gracias por ayudar, si hice algo mal me lo podrían decir para mejorar, por favor

En la línea 36 llamas a una función definida justo antes. Eso está bien si quieres inicializar algún variable o cualquier otra operación de inicialización del módulo. No suele ser lo normal, pero es válido. De todas maneras, en tu caso, no sirve para nada, pues su resultado se pierde.
De la 32 a la 34 defines la función Monster, que se encarga de llamar a otra función. El resultado se guarda en la variable local @data, que DESAPARECE al final de la función. Ahora bien, como NO hay return(), el resultado de la función es el de la ÚLTIMA sentencia ejecutada, así que, por chiripa, la función devuelve el resultado de la llamada a Data_Monster().

por **explorer** » 2010-05-06 14:12 @633

Para que un programa encuentre los módulos que va a necesitar, deben estar en alguno de los directorios indicados por la variable @INC. Usa perl -V para ver cuáles son en tu sistema. Observa que uno de ellos es '.', que significa que puede estar en el mismo directorio que el programa.

Si quieres instalarlos en otro sitio, puedes usar 'use lib' para indicar dónde.

Tienes más información en tu propio ordenador, en perldoc:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

           perlmod             Módulos Perl: cómo funcionan

           perlmodlib          Módulos Perl: cómo escribir y usar

           perlmodstyle        Módulos Perl: cómo escribir módulos con estilo

           perlmodinstall      Módulos Perl: cómo instalarlos desde CPAN

           perlnewmod          Módulos Perl: preparando un nuevo módulo para su distribuciónColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **marcmb** » 2010-05-06 14:25 @642

Gracias, había eliminado el post para ponerlo en un nuevo hilo porque no sabía si leerías el post en un tema resuelto, pero veo que sí

voy a ponerme de inmediato a ver la información de perldoc. Por cierto, podrías hacer un pequeño tutorial de cómo instalarlos en Linux, ya que el ppm.exe, como que va a ser que no :lol:

Bueno, me voy a ver todo esto y seguro que pronto volveré por aquí en alguna duda nueva que me surja (me lo huelo).

Muchas gracias, como siempre, por tu valiosa ayuda, explorer.

por **explorer** » 2010-05-06 16:32 @731

Respondida

Foro - Perl en Español

Ayuda con un módulo

Ayuda con un módulo

Publicidad

Re: Ayuda con un módulo

Re: Ayuda con un módulo

Re: Ayuda con un módulo

Re: Ayuda con un módulo

Re: Ayuda con un módulo

¿Quién está conectado?