Script en langage Perl

Bonjour,

Je suis débutante en Perl et je doit écrire un script qui permet de parcourir deux fichier pour effectuer un mapping entre deux éléments de ces fichiers:


le premier problème : c'est lorsque je fais deux boucles while imbriquées, une seule ligne du premier fichier est parcouru par contre le deuxième fichier est parcouru entièrement.

le second problème : c'est que je doit mettre les résultat de chaque itération dans un tableaux puis à la fin concaténer ses tableaux dans un seul tableau

le dernier problème : quand je rentre dans le if et j'affecte le résultat à une variable, à la sortie du if la variable est réinitialisée


pourriez vous m'aider sur ces 3 point. merci :) .

Bonjour,

Merci de proposer préalablement quelque chose de votre part.

Bonjour,

solution possible pour le premier problème: parcourir le premier fichier et stocker les données dont tu as besoin dans un hash, puis parcourir le second fichier et comparer les données lues séquentiellement à celle du hash.

Dernier problème: difficile de dire exactement sans voir le code, mais il faut probablement déclarer la variable (my $variable ; ) en-dehors du if (avant le if).

Deuxième problème: pas bien compris le problème, mais peut-être que la solution prtoposée au premier problème résoud le second.

Pour le premier problème, vraisemblablement, vous oubliez de fermer votre second fichier et de le réouvrir à chaque While.
Mais cela montre par la même qu'il y a probablement un problème algorithmique à la base. Il y a souvent mieux à faire qu'ouvrir 200 fois le même fichier. Réfléchissez d'abord à votre algo, et seulement après à son implantation Perl.

Il ne faut évidemment pas faire deux simples boucles while imbriquées pour lire deux fichiers, car la boucle while interne lira l'ensemble du deuxième fichier avant de lire la deuxième ligne du premier fichier.

On peut soit stocker le premier fichier en mémoire (hash ou tableau) puis lire le second fichier comme je l'ai proposé plus haut, soit, si les fichiers ont une correspondance ligne à ligne (c'est-à-dire que je suis garanti que la ligne 57 du fichier 1 correspond bien à la ligne 57 du fichier 2), faire ce qui suit:

Code:

---

1 2 3 4 5 6 7

while (my $ligne1 = <INFILE1>) { my $ligne2 = <INFILE2>; # lit une ligne du fichier 2 if ($ligne1 ne $ligne2) { # les lignes ne sont pas égales, faire quelque chose. # ... } }

---

Cette stratégie est utilisable même s'il n'y a pas une correspondance exacte, mais si j'ai au moins la certitude que les deux fichiers sont triés selon la même clé, moyennant l'utilisation d'un algorithme un peu plus complexe dit d'appareillage (ou d'appariement): en gros, si je suis en avance dans fic1 (clé de tri de fic1 > clé de tri de fic2), j'avance dans fic2 jusqu'à ce que les clés soient égales pour les deux fichiers (j'ai alors une correspondance) ou que la clé de fic2 soit plus grande, auquel cas je fais l'inverse et j'avance dans fic1 (toujours en comparant mes clés).

Par exemple, si le fichier ne contient qu'une liste de nombres (un par ligne) que l'on veut simplement imprimer les lignes communes, on peut faire quelque chose comme cela:

Code:

---

1 2 3 4 5 6

while (my $ligne1 = <INFILE1>) { my $ligne2 = <INFILE2>; # lit une ligne du fichier 2 $ligne2 = <INFILE2> while $ligne1 > $ligne2; print $ligne1 if $ligne1 == ligne2; # si $ligne2 > $ligne 1, le cas est pris en charge par la boucle while principale }

---