Moteur de recherche en perl

Moteur de recherche en perl - Perl - Programmation

Marsh Posté le 23-01-2005 à 14:47:46    

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 :
  1. #!/usr/bin/perl
  3. $mailCmd = '/usr/sbin/sendmail';
  4. $fic="base.dat";
  5. $password="password"; 
  6. $page = "resultat.html";
  7. $maxresult=100;
  8. $maxcar=250;
  9. $rubrique = "rubrique.html";
  10. $message = "message.html";
  11. $myMail = "vodevil\@wanadoo.fr";
  12. $merci ="Merci d'avoir pris le temps de vous inscrire";
  13. $target= "_blank";
  14. $image='';
  16. ########################################################################
  18. $i=0;
  19. read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
  20. if ($ENV{'QUERY_STRING'})
  21. {$buffer = "$buffer\&$ENV{'QUERY_STRING'}";}
  22. @pairs = split(/&/,$buffer);
  23. foreach $pair (@pairs){
  24.       ($name,$value) = split(/=/,$pair);
  25.       $value =~ s/%(..)/pack("c",hex($1))/ge;
  26.       $value =~ s/\+/ /g;
  27. $VALUE{$name} = $value;
  28.       $Form{$name} .= "\0" if (defined($Form{$name}));
  29.       $Form{$name} .= "$value";
  30. }
  32. if (defined $Form{'recherche'}) { &recherche; exit; }
  33. if (defined $Form{'inscription'}) { &inscription; exit; }
  34. if (defined $Form{'suppression'}) { &supprimer; exit; }
  35. &rubrique;
  37. ########################################################################
  38. # Recherche par mot clés
  40. ##############
  41. sub recherche
  42. {
  43. open(INF, "$fic" ); @entries = <INF>; close(INF); $count = @entries;
  45. $mc = "$Form{'mc'}";
  47. if (!$mc) { &erreur ("ERREUR<BR><BR>Vous n'avez pas donné de mots clefs" ); }
  48. elsif (length $mc <2) { &erreur ("ERREUR<BR><BR>Votre recherche n'est pas valide" ); }
  49. elsif (length $mc <3) { &erreur ("ERREUR<BR><BR>Votre recherche n'est pas assez precise" ); }
  50. elsif (length $mc >30) { &erreur ("ERREUR<BR><BR>Vous avez tapé trop de mots clés" ); }
  52. $mc =~ s/^\s+//;
  53. $mc =~ s/\s+$//;
  55. @mc = split(/ /, $mc);
  57. open (fic, "$fic" ) || &erreur ("ERREUR<BR><BR>erreur de lecture du fichier $fic : $!" );
  58. foreach $ligne (<fic> )
  59. {
  60.   foreach $mc (@mc) { unless ($ligne =~ /$mc/i) {goto ap265; } }
  61.   $i++;
  62.   ($titre[$i],$url[$i],$descr[$i],$rub[$i],$mail[$i],$date[$i]) = split (/\|/, $ligne);
  63.   ap265:
  64. }
  65. if ($i >$maxresult) { $txt.= "Il y a trop de résultat à votre recherche. Veuillez la reformuler.</font></P>\n"; }
  66. else {
  67. foreach $i (1..$i) { $txt.= "<p>$image$i. <A Href=$url[$i] target=$target>$titre[$i]</A><br><BR><font size=-1>$descr[$i]<br><I>Rubrique : $rub[$i] [$date[$i]]</I></font></P>\n"; }
  68.      }               
  70. if (!$txt) { $txt.= "<center>Il n'y a pas de résultat à votre recherche</center>\n"; }
  71. $ouvrir=$page;
  72. &template;
  73. exit;
  74. }
  75. ########################################################################
  76. # Recherche par rubrique
  78. ##############
  79. sub rubrique
  80. {
  81. @mc = $Form{'rubrique'};
  82. if (!$Form{'rubrique'}) { &erreur ("ERREUR<BR><BR>Votre demande est invalide" ); }
  83. open (fic, "$fic" ) || &erreur ("ERREUR<BR><BR>erreur de lecture du fichier $fic : $!" );
  84. foreach $ligne (<fic> )
  85. {
  86. foreach $mc (@mc)
  87.    {
  88.     ($titre,$url,$descr,$rub,$mail,$date) = split (/\|/, $ligne);
  89.     unless ("$rub" =~ /$mc/i) {goto ap265; }
  90.    }
  91.   $i++;
  92.   ($titre[$i],$url[$i],$descr[$i],$rub[$i],$mail[$i],$date[$i]) = split (/\|/, $ligne);
  93.   ap265:
  94. }
  95. foreach $i (1..$i) { $txt.= "<p>$image$i. <A Href=$url[$i] target=$target>$titre[$i]</A><br><BR><font size=-1>$descr[$i]<br><I>$url[$i] [$date[$i]]</I></font></P>\n"; }
  97. if (!$txt) { $txt.= "<center>Il n'y a pas de lien dans cette rubrique.</center>\n"; }
  98. $ouvrir=$rubrique;
  99. &template;
  100. exit;
  101. }


 
 
 
Si quelqu'un sait comment faire ======> vodevil@hotmail.fr
 
Merci!    :fou:  :o  :bounce:

Reply

Marsh Posté le 23-01-2005 à 14:47:46   

Reply

Marsh Posté le 25-01-2005 à 10:47:14    

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
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed