Foro - Perl en Español

por **primitivo** » 2013-07-04 19:31 @855

Hola amigos, yo molestando nuevamente.

Quiero exportar un archivo como módulo, el cual llevo trabajando.

Tengo lo siguiente

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package BDD;
 
use lib 'system/modules'; # Se supone que así, selecciono el directorio que contiene los módulos
use parseChar; # este sería el módulo 'parseChar.pm'
sub GetBDD
{
    my($registro,$Fichero,$Service,$user) = (shift,shift,shift,shift);
    my $PunteroAFichero = &parseChar::GetCharsFile($Fichero); #Y esta es la subrutina del módulo
    my $LimiteCadena;
    
    open(BDD,$Fichero) or screen("$BOTS{\"$Service\") P $user :Error al acceder a la database\n");
    while (<BDD>)
    {
        $LimiteCadena++;
        if ($LimiteCadena < $PunteroAFichero)
        {
                          my $DataOffsite = <BDD>;
                          screen("$BOTS{\"$Service\") P $user :datos obtenidos -> $DataOffsite\n");
        } else {
               screen("$BOTS{\"$Service\") P $user :El puntero ha alcanzado el límite posible -> LimiteCadena '$LimiteCadena' PunteroAFichero '$PunteroAFichero'\n");
        }
    }
    close(BDD);
}
 
1;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El tema es que me da

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 'syntax error' 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Qué hago mal?

La línea BEGIN que has puesto, la puedes sustituir por
use system::modules::BDD;

Al hacer eso, se llama a import(), pero eso no quiere decir que tengamos a nuestra disposición las variables y subrutinas definidas en el módulo (por eso te sale un error).

Lo que sí podemos hacer es llamar a la función, pero con el nombre completo: system::modules::BDD::GetBDD()

Finalmente, si te cansas de escribir system::modules::BDD::... entonces es cuando hay que echar mano del módulo Exporter, tal como se comenta en la sección Módulos Perl de perlmod (en español).

por **primitivo** » 2013-07-05 18:41 @820

Muchas gracias, explorer.

Foro - Perl en Español

Localización de un módulo

Localización de un módulo

Publicidad

Re: Localización de un módulo

Re: Localización de un módulo

Re: Localización de un módulo

Re: Localización de un módulo

¿Quién está conectado?