<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18702">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial> Bom dia a todos da
lista....</FONT></DIV>
<DIV><FONT size=2 face=Arial>Minha duvida seria como passar
valores..</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Veja, posso fazer isto</FONT></DIV>
<DIV><FONT size=2 face=Arial>require "funcao.pl"</FONT></DIV>
<DIV><FONT size=2 face=Arial>my $nomel=funcao1();</FONT></DIV>
<DIV><FONT size=2 face=Arial>print $nome;</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>onde eu pego a variavel de retorno da funao no
arquivo externo, mas se eu quiser fazer o caminho inverso</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Ex. (apenas exemplo)</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Arquivo externo;</FONT></DIV>
<DIV><FONT size=2 face=Arial>funcao.pl</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>funcao1 {</FONT></DIV>
<DIV><FONT size=2 face=Arial>$sth=$dbh->("select nome from tabela where
id='$id'");</FONT></DIV>
<DIV><FONT size=2 face=Arial>$sth->execute() | | dei
$DBI::errstr;</FONT></DIV>
<DIV><FONT size=2 face=Arial>$nome=$sth->fetchrow_array;</FONT></DIV>
<DIV><FONT size=2 face=Arial>$sth->finish();</FONT></DIV>
<DIV><FONT size=2 face=Arial>return $nome;</FONT></DIV>
<DIV><FONT size=2 face=Arial>}</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Arquivo principal</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>main.pl</FONT></DIV>
<DIV><FONT size=2 face=Arial>.......</FONT></DIV>
<DIV><FONT size=2 face=Arial>$id=1;</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>como passar o valor de $id para funcao.pl, sei que
tenho que passar o valor antes de imprimir o retorno</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>com passar $id </FONT></DIV>
<DIV><FONT size=2 face=Arial>para depois ter o retorno</FONT></DIV>
<DIV><FONT size=2 face=Arial>my $nome=funcaoq();</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>print $nome;</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>desculpe se a duvida parece simples, mas quero
aprender a fazer isto.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Ricardo Stock<BR><A
href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</A></FONT></DIV></BODY></HTML>