Perl

[PERL] boucle imbriquées

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] boucle imbriquées

x-ben

Salut à vous.
j'ai un ptit soucis:
j'ouvre 2 fichiers texte en lecture et je veux traiter chacune des paires de mots en les envoyant dans une fonction.
je fais donc un truc de la sorte:

Code :

open(F1, 'f1.txt') || die "erreur douverture";
open(F2, 'f2.txt') || die "erreur douverture";
while (<F1> )
{
while(<F2> )
{
fonction ($_,?????) # quoi mettre pour le 2eme argument?
}
}

je récupère le première valeur avec $_ mais je ne sais pas comment récupérer la 2eme [:at war with emo]

Message édité par x-ben le 11-11-2008 à 15:47:22

Publicité

x-ben

j'ai trouvé ça:

Code :

open(F1, 'f1.txt') || die "erreur douverture";
open(F2, 'f2.txt') || die "erreur douverture";
while ($l1 = <F1> )
{
while($l2 = <F2> )
{
fonction ($l1,$l2)
}
}

prob: ça arrete de boucler a la fin de la premiere boucle [:autobot]

Message cité 1 fois
Message édité par x-ben le 11-11-2008 à 15:46:28

x-ben

help, qqun saurait pkoi ça s'arrete à la fin de la première boucle?

dreameddeath

il s'arrêtera dès qu'il rencontrera la fin d'un des deux fichiers ...

Petite question, il y a combien de lignes dans les fichiers, et as-tu fait attention au caractère de séparation de ligne (variable $/) ?

x-ben

merci bien.
en fait, il faut refermer le fichier imbriqué pour que ça boucle.(sinon il ne lit qu'une fois)
une connerie de débutant [:airforceone]

gilou

Modérateur
Modzilla

x-ben a écrit :

j'ai trouvé ça:

Code :

open(F1, 'f1.txt') || die "erreur douverture";
open(F2, 'f2.txt') || die "erreur douverture";
while ($l1 = <F1> )
{
while($l2 = <F2> )
{
fonction ($l1,$l2)
}
}

prob: ça arrete de boucler a la fin de la premiere boucle [:autobot]

Faut revenir en debut de ton second fichier apres chaque tour de boucle interne.

Code :

open(F1, 'f1.txt') || die "erreur douverture";
open(F2, 'f2.txt') || die "erreur douverture";
while ($l1 = <F1> )
{
while($l2 = <F2> )
{
fonction ($l1,$l2)
}
seek(F2, 0, 0);
}

A moins que ce que tu veuille faire soit:

Code :

open(F1, 'f1.txt') || die "erreur douverture";
open(F2, 'f2.txt') || die "erreur douverture";
while (($l1 = <F1> ) and ($l2 = <F2> ))
{
fonction ($l1,$l2)
}

A+,

Message édité par gilou le 13-11-2008 à 16:23:43

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

x-ben

je connais pas seek. j'ai mis close(F2) et ça marche.
mais sans doute que seek c'est plus approprié, je vais me enseigner sur la commande.
merci à toi Gilou

gilou

Modérateur
Modzilla

seek( F, 0, 0) ca rembobine le fichier F au début sans le fermer justement.
Si tu passes par un close, alors le open correspondant doit être a l'interieur de la premiere boucle et non a l'exterieur.
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

[PERL] boucle imbriquées

Sujets relatifs
MySql 4.0 - Imbrication de Select avec In()	Aide boucle While Encore ?? je pete un cable ... :'(
Perl + LWP + Cookie	[batch] un bète SET puis ECHO dans une boucle for, mais non...
Utilisation d'un programme perl sous VBA	[résolu]boucle de classement selon valeur tableau
Problème d'execution de module perl	Boucle sur répertoire en batch
[java]ObjectIn/outputStream dans une boucle
Plus de sujets relatifs à : [PERL] boucle imbriquées

Page générée en 0.049 secondes