[Cascavel-pm] Passando valores

[Ricardo Stock]

    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/20100717/88e62c97/attachment.html>