[Cascavel-pm] Passando valores

[Daniel Vinciguerra]

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

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20100719/397bc928/attachment-0001.html>