9 replies to this topic

[Gabriel]

COmo criar um pequeno sistema de busca

Vejam o seguinte codigo:

#!/usr/bin/perl
#######
# Aqui vem os header e comandos do modulo CGI
#######
print "Content-type: text/html\n\n";
use CGI;
$cgi = new CGI;
$key = $cgi->param("key");

#######
# Criamos o topo da busca
#######

print qq~
<center><h2>Sistema de busca</h2><hr>
<form method="Post">
Buscar por: <input type="text" name="key"> <input type="submit" value="Pesquisar">
</form>
~;

#######
# Codigo
#######

if($key ne ""){ # se $key for diferente de ""

open(BD,"sites.dat"); # supondo que o arquivo seja com os dados seja o sites.dat
@bd=<BD>; # colocams os dados em uma array
close(BD); #fechamos o bd

$key2 = uc($key); # deichmamos as palavras buscadas em minusculo em uma nova variavel
print "Buscando por <b>$key</b><br><br>";
$var = "0"; # criamos uma nova var para saber se teve resultado

foreach(@bd){ #damos um loop
chop; # tiramos os espaços em branco
($nome,$url,$descricao) = split(/\|/,$_); #separamos os campos
$descr = uc($descricao);  # deichmamos a descricao em minusculo em uma nova variavel
if($key2 ~= /$descr/i){ #aqui vemos se tem $key2 no meio de $descr
# se tiver, impimi e conta +1 a $var

print qq~
<a href="$url" target="_blank">$nome</a>: $descricao<br>
~;
$var +="1"; #soma +1 a $var (pode-se usar tbm $var++;)
} #fecha o if da verificação
} #fecha o loop

#agora vemos se $var for igual a "0", se for, nao econtrou nenhum resultado
if($var eq "0"){
print "Não econtramos nenhum resultado para <b>$key</b>";
}

#agora fechamos o if
}

Abraços

Edição feita por: Gabriel, 08/05/2004, 15:26.

[Gabriel]

ficariam assim o bd

WMCLUBE|http://www.wmclube.com.br|Site dedicado a webmasters
Divulgue-Me.com|http://www.divulgue-me.com|Site de divulgação de sites em mecanismos de busca
MeuHosting|http://www.meuhosting.com.br|O melhor hosting de todos os tempos, confiram

abraços

Edição feita por: Gabriel, 05/11/2006, 23:00.

[prix]

ERRO:
chop; # tiramos os espaços em branco

use o comando chomp

pois se a ultima linha nao tiver \n ou tiver algum problema no sistema o chop ira comer um caractere do sistema.

[Inu]

[Sun Sep 11 21:08:08 2005] [error] [client 127.0.0.1] Execution of c:\appserv\www\busca.cgi aborted due to compilation errors.

se der o erro acima, troque:
if($key2 ~= /$descr/i){ #aqui vemos se tem $key2 no meio de $descr
para
if($key2 = /$descr/i){ #aqui vemos se tem $key2 no meio de $descr

ok?

Edição feita por: Inu, 11/09/2005, 21:05.

[prix]

incorreto, /$descr/i eh um fator para comparação , deve-se usar

=~

ficando:

if($key2 =~ /$descr/i){

o erro ai eh que o ~ deve vir depois e nao antes do =

Edição feita por: prix, 11/09/2005, 21:56.

[Inu]

aqui funcionou normal sem o ~!

[prix]

bom isso eh referente a fatores de vinculos ou sem vinculos.

sao usados para comparações mais complexas.

por exemplo (do jeito que esta, ira resultar em diferente, se vc mudar o $variavel para teste, ira dar igual.):

$variavel = 'asd';

print "Content-Type: text/html\n\n";

if ($variavel !~ /teste/i) {
print "diferente\n";
} else {
print "igual\n";
}

porem se voce tirar o ~ que nem fez no =~ ele nao ira funcionar.

outro exemplo(neste exemplo a variavel sendo teste ele vira igual sendo outro valor ela nao se da por igual, e se voce colocar a variavel com o valor teste e tirar o ~ do =~ ele da diferente, logo o seu codigo esta errado:

$variavel = 'asd';

print "Content-Type: text/html\n\n";

if ($variavel =~ /teste/i) {
print "igual\n";
} else {
print "diferente\n";
}

Por que da errado ? por que ela inclui um valor extra na pesquisa um valor nao real que na comparação vira um erro.

Edição feita por: prix, 11/09/2005, 22:29.

[Inu]

agora eu entendi, mas pq se eu tirar o ~ o erro para e o script funciona?

[prix]

por que ele tenta fazer outro tipo de comparação.
no caso ($key2 = /$descr/i)

Edição feita por: prix, 12/09/2005, 16:24.