
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>

<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">

<META content="MSHTML 6.00.2900.2180" name=GENERATOR>

<STYLE></STYLE>

</HEAD>

<BODY bgColor=#ffffff>

<DIV><FONT face=Verdana size=2>&nbsp;&nbsp;&nbsp; Bom dia a todos da lista. 

Agradeço a toda ajuda que recebi. principalmente em me mostrar como retornar os 

erros no navegador... isto foi muito util.</FONT></DIV>

<DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>

<DIV><FONT face=Verdana size=2>&nbsp;&nbsp;&nbsp;O problema&nbsp;foi resolvido, 

mas não a contento, consegui conectar ao banco e retornar o valor esperado, mas 

não utilizando CGI, o que era o principio inicial. Segue o código. Mas agora 

irei estudar mais um pouco e escrever tudo em forma de rotinas para que possar 

escrever o programa mais profissionalmente. Mesmo assim agradeço a todos. 

</FONT></DIV>

<DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>

<DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>

<DIV><FONT face=Verdana size=2>#!c:\perl\bin\perl.exe</FONT></DIV>

<DIV>&nbsp;</DIV>

<DIV><FONT face=Verdana size=2>my $database="World";<BR>my 

$host="127.0.0.1";<BR>my $usuario="root";<BR>my $senha="123";<BR>use 

DBI();<BR>use CGI::Carp qw(fatalsToBrowser warningsToBrowser);<BR>my $dbh = 

DBI-&gt;connect("DBI:mysql:$database;$host","$usuario","$senha",{'RaiseError' 

=&gt; 1});<BR>$sth = $dbh-&gt;prepare("SELECT * FROM 

artigos");<BR>$sth-&gt;execute();<BR>print "Content-type: 

text/html\n\n";<BR>print "&lt;HTML&gt;";<BR>print 

"&lt;HEAD&gt;&lt;TITLE&gt;Resposta da 

Consulta&lt;/TITLE&gt;&lt;BODY&gt;";<BR>print "&lt;font face=verdana size=2 

color=#FF0000&gt;&lt;strong&gt;RESULTADO DA 

BUSCA&lt;/strong&gt;&lt;/font&gt;&lt;/b&gt;&lt;p&gt;";<BR>while(($numero,$titulo,$conteudo) 

= $sth-&gt;fetchrow_array) {</FONT></DIV>

<DIV>&nbsp;</DIV>

<DIV><FONT face=Verdana size=2>print "&lt;font face=verdana size=2&gt;Resultado 

número&nbsp;$numero&lt;br&gt;&lt;b&gt; $titulo&lt;/b&gt;&lt;br&gt; 

&lt;i&gt;$conteudo&lt;/i&gt;&lt;hr&gt;";<BR>print 

"&lt;/BODY&gt;&lt;/HTML&gt;";<BR>}<BR>$sth-&gt;finish();</FONT></DIV>

<DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV>

<DIV><FONT face=Verdana size=2>&nbsp;&nbsp;&nbsp; </FONT>&nbsp;</DIV>

<DIV><FONT face=Verdana size=2>Ricardo Stock<BR><A 

href="mailto:ricardostock@bol.com.br">ricardostock@bol.com.br</A></FONT></DIV></BODY></HTML>