[Cascavel-pm] Duvida sobre banco de dados

[Igor Sutton Lopes]

On Aug 6, 2007, at 7:04 PM, Ricardo Stock wrote:

> Boa tarde a todos da lista. Dei uma boa olhado no script e como  
> apontaram,
> verifiquei dois erros, um de sintaxe e outro de falta de atenção.
>
> agora me da um erro, no log apache na geração do html. na linha  
> 14.. dizendo
> o seguinte
>
> Premature end of script headers: c:/apache/cgi-bin/test.cgi
> No comma allowed after filehandle at c:\\APACHE\\CGI-BIN\\TEST.CGI  
> line
> 14.\n
>
> abaixo segue novamente o script corrigido... agora não sei mais  
> onde possa
> estar havendo erros... espero a ajuda da lista.
>
> #!c:\perl\bin\perl.exe
> use CGI qw/:standart/;
> use DBI();
> $database="World";
> $host="127.0.0.1";
> $usuario="root";
> $senha="123";
>
> my $dbh =
> DBI->connect("DBI:mysql:database=$database;host= 
> $host","$usuario","$senha",{'RaiseError'
> => 1});
>
> $sth = $dbh->prepare("SELECT * FROM artigos");
> $sth->execute();
>
> print header, start_html('Resultado da Busca'), h1("Itens  
> Relacionados"); #
> linha que da erro
>
> while (($numero,$titulo,$conteudo) = $sth->fetchrow_array) {
>        print p("$numero<br> $titulo<br>$conteudo<p><hr>");
>       }
>
>       $sth->finish();

Acredito que o seu Perl está interpretando a função header de 'print  
header, start_html...'  como um filehandle. Isso acontece, como a  
Fabiana disse em outro email que você está usando 'use CGI qw 
(:standart);' enquanto o correto seria ':standard'.

Se você tivesse utilizado 'use strict;' e 'use warnings;' você mesmo  
poderia ter sido informado pelo Perl...

Espero que ajude.