Criar biblioteca de funções em PERL ? [RESOLVIDO]

ppvol
(usa Ubuntu)

Enviado em 23/03/2010 - 01:41h

Ola,

quero criar minha biblioteca de funções e variáveis globais, deixar tudo num único arquivo e inseri-lo nos meus scripts... não estou conseguindo de forma alguma inserir minha biblioteca, já procurei, pesquisei e nada, só erros... talvez eu não tenha procurado da forma correta, não sei...

se puderem me dar as orientações de como deve ser o arquivo, por exemplo:

1 - deve iniciar e terminar com alguma linha especifica ?
2 - como devo importar esse arquivo nos meus scripts ?

já criei minhas librarys em C++, php.. e não tive problema algum, foi muito fácil... mas com perl tá dando um pouco de trabalho, espero a ajuda de vcs.

obrigado.

SMarcell
(usa Slackware)

Enviado em 23/03/2010 - 02:01h

Na verdade o que você está querendo são módulos! Não é isso?

Se for, então isso aqui talvez possa lhe ajudar:

http://www.perlmonks.org/index.pl?node_id=431702

ppvol
(usa Ubuntu)

Enviado em 23/03/2010 - 08:28h

SMarcell,

achei bastante confuso, sinceramente não sei se o que eu preciso leva o nome de módulo, mas se for achei bastante trabalhoso por simplesmente querer incluir algumas variáveis e algumas funções no meu código principal, vou tentar ser um pouco mais objetivo na minha necessidade.

//*************************************
para importar minha biblioteca PHP nos meus scripts eu só faço isso:
include('minhasFuncoes.php');

em shell script:
. minhasFuncoes

em C/C++:
#include <minhasFuncoes.h>

em javascript:
<script type='text/javascript' src='js/mootools.js'></script>

<style type='text/css'>@import url('css/meuCss.css');</style>

*************************************//

em nenhuma delas eu preciso fazer algum tipo de compilação e instalação da mesma, só basta eu informar onde estão, em que pasta está o arquivo... e elas farão parte do meu script.

espero ter sido mais claro e objetivo.

obrigado.

SMarcell
(usa Slackware)

Enviado em 23/03/2010 - 11:10h

Então tente:

use lib qw(/path/minhas_rotinas);
use módulo_em_minhas_rotinas;
use vars qw(suas_variavéis_em_módulo.pm);

Exemplo:

$ cat funcao.pm
$var = "Hello Wordl!";
sub Teste() {
print("Estou dentro de uma subrotina.\n");
}

$ cat testa_modulo
use lib qw(/tmp/minhas_rotinas);
use funcao;
use vars qw($var);

print("$var\n");
Teste;

ppvol
(usa Ubuntu)

Enviado em 23/03/2010 - 12:53h

SMarcell,

obrigado por sua resposta, mas fiz de outra maneira um pouco mais simples e funcionou, está ai abaixo.

minhasFuncoes.pm => arquivo q contem minha funções e variáveis

dentro dos meus scrits eu coloco essa instrução:

do "minhasFunções.pm";

e pronto, chamo minhas funções normalmente.

vlw