Perl

Moteur de recherche en perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Moteur de recherche en perl

shinux

Bonjour g conçue un petit moteur de recherche en perl.
Il fonctionne bien mais je voudrais lui a jouté une fonction de trie par pertinence et d'affichage sur plusireur page.

Mais seulement je ne sais pas comment faire (je sais qu'il faut des regxp mais on est faché)

Voici le code source :

Code :

#!/usr/bin/perl
$mailCmd = '/usr/sbin/sendmail';
$fic="base.dat";
$password="password";
$page = "resultat.html";
$maxresult=100;
$maxcar=250;
$rubrique = "rubrique.html";
$message = "message.html";
$myMail = "vodevil\@wanadoo.fr";
$merci ="Merci d'avoir pris le temps de vous inscrire";
$target= "_blank";
$image='';
########################################################################
$i=0;
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
if ($ENV{'QUERY_STRING'})
{$buffer = "$buffer\&$ENV{'QUERY_STRING'}";}
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
($name,$value) = split(/=/,$pair);
$value =~ s/%(..)/pack("c",hex($1))/ge;
$value =~ s/\+/ /g;
$VALUE{$name} = $value;
$Form{$name} .= "\0" if (defined($Form{$name}));
$Form{$name} .= "$value";
}
if (defined $Form{'recherche'}) { &recherche; exit; }
if (defined $Form{'inscription'}) { &inscription; exit; }
if (defined $Form{'suppression'}) { &supprimer; exit; }
&rubrique;
########################################################################
# Recherche par mot clés
##############
sub recherche
{
open(INF, "$fic" ); @entries = <INF>; close(INF); $count = @entries;
$mc = "$Form{'mc'}";
if (!$mc) { &erreur ("ERREUR Vous n'avez pas donné de mots clefs" ); }
elsif (length $mc <2) { &erreur ("ERREUR Votre recherche n'est pas valide" ); }
elsif (length $mc <3) { &erreur ("ERREUR Votre recherche n'est pas assez precise" ); }
elsif (length $mc >30) { &erreur ("ERREUR Vous avez tapé trop de mots clés" ); }
$mc =~ s/^\s+//;
$mc =~ s/\s+$//;
@mc = split(/ /, $mc);
open (fic, "$fic" ) || &erreur ("ERREUR erreur de lecture du fichier $fic : $!" );
foreach $ligne (<fic> )
{
foreach $mc (@mc) { unless ($ligne =~ /$mc/i) {goto ap265; } }
$i++;
($titre[$i],$url[$i],$descr[$i],$rub[$i],$mail[$i],$date[$i]) = split (/\|/, $ligne);
ap265:
}
if ($i >$maxresult) { $txt.= "Il y a trop de résultat à votre recherche. Veuillez la reformuler.\n"; }
else {
foreach $i (1..$i) { $txt.= "$image$i. <A Href=$url[$i] target=$target>$titre[$i]</A> $descr[$i] Rubrique : $rub[$i] [$date[$i]]\n"; }
}
if (!$txt) { $txt.= "<center>Il n'y a pas de résultat à votre recherche</center>\n"; }
$ouvrir=$page;
&template;
exit;
}
########################################################################
# Recherche par rubrique
##############
sub rubrique
{
@mc = $Form{'rubrique'};
if (!$Form{'rubrique'}) { &erreur ("ERREUR Votre demande est invalide" ); }
open (fic, "$fic" ) || &erreur ("ERREUR erreur de lecture du fichier $fic : $!" );
foreach $ligne (<fic> )
{
foreach $mc (@mc)
{
($titre,$url,$descr,$rub,$mail,$date) = split (/\|/, $ligne);
unless ("$rub" =~ /$mc/i) {goto ap265; }
}
$i++;
($titre[$i],$url[$i],$descr[$i],$rub[$i],$mail[$i],$date[$i]) = split (/\|/, $ligne);
ap265:
}
foreach $i (1..$i) { $txt.= "$image$i. <A Href=$url[$i] target=$target>$titre[$i]</A> $descr[$i] $url[$i] [$date[$i]]\n"; }
if (!$txt) { $txt.= "<center>Il n'y a pas de lien dans cette rubrique.</center>\n"; }
$ouvrir=$rubrique;
&template;
exit;
}

Si quelqu'un sait comment faire ======> vodevil@hotmail.fr

Merci! :fou: :bounce:

Publicité

pospos

shinux a écrit :

Si quelqu'un sait comment faire ======> vodevil@hotmail.fr

on est sur un forum ici...

Ton code est assez "crade": pas de "use strict", des goto partout, des appels de fonctions avec des &.... on dirait du perl 4!

Sinon a par ca ta recherce n'est pas tres efficace: si j'ai bien dechiffré tu parcours le fichier à la recherche des mots de la requetes, ca n'est pas tres "scalable" et risque rapidement de devenir super lent (surtout sur un serveur mutualisé).
Ce qu'il faut faire c'est indexer tes document, puis rechercher dans l'index au moment des requetes (et evidement réindexer tes document des qu'il changent). tu peux voir l'index comme une sorte de table de hash qui pour chaque mots pointera les documents qui le contiennent.
Regarde plutot du coté de vrais moteur d'indexation comme Swish (http://swish-e.org/) qui a une interface tres bien faite en perl: SWISH::API (http://swish-e.org/current/docs/API.html) (attention cette API la n'est pas sur CPAN, sur CPAN on ne trouve qu'une ancienne version peu efficace). Tu trouvera ensuite sur CPAN plein de modules pour présenter les resultats (context highlighting, templates, etc...).
Tu peux aussi regarder du coté de Plucene (lucene en Perl) ou Xapian.

bonne continuation

FORUM HardWare.fr

Programmation

Perl

Moteur de recherche en perl

Sujets relatifs
Recherche par date sur Oracle 10g.	Recherche Envoie mail par Formulaire Sans php
[Perl] extraction de chaine	Recherche un bon script pour chat php
Recherche de graphiste(s) pour un RPG VB/DirectX !	Recherche lien vers le topic des meilleurs sites.
frames et moteurs de recherche	Recherche d'une séquence particulière
recherche d'une fonction	[Perl] Comment vérifier si un nombre est entier ?
Plus de sujets relatifs à : Moteur de recherche en perl

Page générée en 0.096 secondes