my ($sth) = $dbh->prepare ("SELECT campo1, campo2, campo3 FROM
table");<BR>while (my $ref = $sth->fetchrow_hashref ()) {<BR>$c1 =
$ref->{campo1}; $c2 = $ref->{campo2}; $c3 =
$ref->{campo3};<BR>}<BR><BR>--<BR>TCNet Informática e Telecomunicações
LTDA<BR>Rua São João, 150 - Pouso Alegre/MG<BR>+55(35)3425-2556<BR><BR><BR>
<BLOCKQUOTE dir=ltr style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px;
MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">--------- Mensagem Original --------<BR>De:
"Murilo Opsfelder Araújo" <mopsfelder@gmail.com><BR>Para:
"cascavel-pm@pm.org" <cascavel-pm@pm.org><BR>Assunto: [Cascavel-pm]
Perl + MySQL<BR>Data: 10/07/06 16:06<BR><BR><FONT face="Courier New"
size=2><BR>Olá pessoal,<BR><BR>gostaria de saber como tratar resultados de
uma query no MySQL.<BR>Exemplo da base de dados:<BR><BR>TABELA:
tabela<BR>CAMPOS: campo1, campo2, campo3<BR><BR>Algo mais ou menos
assim:<BR><BR>A variável $c1 recebe o valor do campo1, a variável $c2 recebe
o valor<BR>do campo2 e assim por diante.<BR><BR>Já consegui realizar a
conexão com o MySQL.<BR><BR>Desde já obrigado.<BR><BR><BR><BR>-- Murilo
Opsfelder Araújo<BR>Linux User #391561<BR>../murilo
--opsfelder='araujo'<BR>_______________________________________________<BR>Cascavel-pm
mailing list<BR><A class=autolink
href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</A><BR><A class=autolink
href="http://mail.pm.org/mailman/listinfo/cascavel-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/cascavel-pm</A><BR><BR><BR><BR><BR></FONT></DIV></BLOCKQUOTE><BR
/>
<BR />
________________________________________________<BR />
TCNet WebMail http://webmail.tcnet.com.br<BR />