laviedesmots

Quelques changements pas très évidents dans le script perl et on obtient ce qu'on voulait. En fait, en polonais, à cause de déclinaison, il faut chercher plusieurs mots dans le fichier dumpé. Sophie a créé de très belles expréssions régulières mais cela ne marchait pas comme il fallait: d'abord le minigrep ne les reconnaissait pas du tout, puis, après intervention de M. Fleury, il affichait toute une expression au lieu du mot cherché.
Enfin, ensemble, on a trouvé la résolution. Voici les changements a apporter dans le minigrep pour qu'il reconnaisse les regexp:

ligne 73:
$formein=~/MOTIF=(.*)/;

ligne 113:
while ($ligne =~/($forme)/g)

lignes 115-117:
    my $droite = $';
    my $formereconnue=$&;
    my $test=0;

ligne 127:
print FILEOUT "<li><font color=\"blue\"><b>Ligne n°$i</b></font> : $gauche<font color=\"red\"><b>$formereconnue<\/b><\/font>$droite </li>"; #formereconnue au lieu de forme
    $verif=1;


Si quelqu'un a besoin du script tout fait, je l'enverrai par mail.
Bon travail à tous!

Je me suis aperçue qu'on n'avait pas mis les modifications du script perl en ligne et que cela pouvait servir à quelqu'un. Voici donc les changements qu'on a fait, les mêmes qu'on a vu M. Fleury faire pendant le cours il y a quelques semaines: 

ligne 50:
version originale
if ((!($ARGV[0])) || (!($ARGV[1])) || (!($ARGV[2])))  {
notre version:
if ((!($ARGV[0])) || (!($ARGV[1])) || (!($ARGV[2])) || (!($ARGV[3])))  {
 #on rajoute un quatrième option que le programme va reclamer pendant qu'on le lance: On sera obligé alors de lancer le minigrep de cette façon:
perl .............../minigrepmultiligue.pl "UTF-8" fichier_d'entrée motif fichier-de-sortie.txt;

ligne 66:
originale:
my $fileout="resultat-extraction.html";
notre:
my $fileout=$ARGV[3];
#on utilise l'option qu'on a demandé de l'utilisateur tout à l'heure pour connaître le fichier de sortie