[Cascavel-pm] Passando valores

[Thiago Glauco Sanchez]

A propósito, o require é muito "old fashion", prefira usar um pacote 
(packge) funcao.pm e no lugar de require "use",

use Funcao.pm;
my $var = find_name($variaveis...);

E o módulo:

package Funcao;
use base Exporter;

our @EXPORT = ('find_name');

sub find_name{...}
1


Em 19/07/2010 10:19, Daniel Vinciguerra escreveu:
>
> Bom dia Ricardo,
>
> Não creio que tenha entendido bem seu problema mas se é só passagem de 
> parâmetro acredito que o que você queira fazer esteja próximo a 
> isso... ; )
>
> Você poderia fazer algo assim...
>
> require "funcao.pl"
>
> my $nomel = find_name($id); # Aqui você passa seu ID
>
> print $nome;
>
> [CODE] funcao.pl
>
> find_name {
>
> my $id = shift; # Aqui você recebe o valor da variável $id
>
> $sth=$dbh->("select nome from tabela where id='$id'");
>
> $sth->execute() | | die $DBI::errstr;
>
> $nome=$sth->fetchrow_array;
>
> $sth->finish();
>
> return $nome;
>
> }
>
> [/CODE]
>
> Acredito que este tipo de duvida possa ser sanada com uma lida à 
> http://perldoc.perl.org/perlsub.html.
>
> Me desculpe se não compreendi bem seu problema e caso isso tenha 
> acontecido peço que explique/especifique melhor sua duvida...
>
> Obs.: Corrija a linha que contem o execute da funcao1 substituindo 
> “dei” por “die” ; )
>
> Forte abraço parceiro,
>
> *Daniel Vinciguerra - Developer*
>
> http://dvinciguerra.wordpress.com <http://dvinciguerra.wordpress.com/>
>
> *From:* cascavel-pm-bounces+daniel-vinciguerra=hotmail.com em pm.org 
> [mailto:cascavel-pm-bounces+daniel-vinciguerra=hotmail.com em pm.org] *On 
> Behalf Of *Ricardo Stock
> *Sent:* sábado, 17 de julho de 2010 11:06
> *To:* Cascavel Perl Mongers
> *Subject:* [Cascavel-pm] Passando valores
>
> Bom dia a todos da lista....
>
> Minha duvida seria como passar valores..
>
> Veja, posso fazer isto
>
> require "funcao.pl"
>
> my $nomel=funcao1();
>
> print $nome;
>
> onde eu pego a variavel de retorno da funao no arquivo externo, mas se 
> eu quiser fazer o caminho inverso
>
> Ex. (apenas exemplo)
>
> Arquivo externo;
>
> funcao.pl
>
> funcao1 {
>
> $sth=$dbh->("select nome from tabela where id='$id'");
>
> $sth->execute() | | dei $DBI::errstr;
>
> $nome=$sth->fetchrow_array;
>
> $sth->finish();
>
> return $nome;
>
> }
>
> Arquivo principal
>
> main.pl
>
> .......
>
> $id=1;
>
> como passar o valor de $id para funcao.pl, sei que tenho que passar o 
> valor antes de imprimir o retorno
>
> com passar $id
>
> para depois ter o retorno
>
> my $nome=funcaoq();
>
> print $nome;
>
> desculpe se a duvida parece simples, mas quero aprender a fazer isto.
>
> Ricardo Stock
> ricardostock em bol.com.br <mailto:ricardostock em bol.com.br>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm


-- 
What is the sound of Perl? Is it not the sound of a wall that people have
stopped banging their heads against?
—Larry Wall

Thiago Glauco Sanchez
Intrutor Perl e Redes
www.ticursos.net