Discussion :

[aladin1984]

Bonjour à tous,

J'ai réussis à écrire un programme en Perl mais j'ai toujours des difficultés à trouver la réponse finale.
En fait, mon programme consiste à générer des noms composés à partir d'une liste de 10 verbes et de 10 noms et la formule doit ressembler à ça (10 V x 10 N = 100 N composés). Ensuite l'affichage doit apparaître de la façon suivante :
Début De V[0] à V[9]
De N[0] à N[9]
V[0] - N[0]
V[0] - N[1]
...
V[0] - N[9]
Fin V[0] à V[9] => Retour au début: de V[1] à V[9]
Voici à quoi ressemble mon programme :



Merci pour vos réponses !

[hauru]

Que veux-tu faire exactement?

Ton programme fait bien l'affichage que tu demande... je ne vois pas ton soucis.

Par contre, pourquoi demandes-tu de nouveaux verbes si tu ne les traites pas après?

Si tu veux les ajouter dans ton tableau de verbes, fait ta boucle while avant l'affichage et pousse chaque nouvel élément dans ton tableau (via un push par exemple).




Petit conseil: au lieu de faire un "for", utilise l'opérateur "foreach".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for(my $v = 0 ; $v <= 9 ; $v++)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

foreach my $v (@V)   #prendra un par un tous les élément du tableau @v

[aladin1984]

Bonsoir,
Merci pour votre réponse, en fait je n'étais pas si explicite que ça,
Mon problème c'est d'essayer d'affichier une ligne sur le shell ou on demande à l'utilisateur de taper un verbe d'une liste composée de 10 verbe cité dans le tableau des verbes et que le résultat espéré c'est d'afficher :
Début De V[0] à V[9]
De N[0] à N[9]
V[0] - N[0]
V[0] - N[1]
...
V[0] - N[9]
Et qu'à chaque fois il y a un message pour lui demandé soit d'entrer un nouveau verbe de la liste soit de taper X pour finir le programme.
Si il tape un autre verbe on a la continuation du programme et ainsi de suite
Fin V[0] à V[9]
=> Retour au début: de V[1] à V[9]

J'espère que c'est clair comme explication

Merci d'avance

[hauru]

1: L'utilisateur ecrit un verbe de la liste => toutes les compositions possibles avec ce verbe s'affichent
2: L'utilisateur ecrit un verbe qui n'est pas dans la liste => rien ne se passe
3: L'utilisateur ecrit X => fin du programme

C'est ce qui est voulu?

Si c'est ce qui est demandé, voici le squelette de la fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
my @V = ("abat", "bouche", "marque", "garde", "porte", "chausse", "pense", 
"amuse", "presse", "cure");
my @N= ("jour", "trou", "page", "boue", "avions", "pied", "bête", "gueule", "papiers", "dents");
my $v_n ;	
 
#tu vas dans la boucle jusqu'a que l'utilisateur tappe "X".
do{     
        #ecriture du verbe
	print "Entrez un verbe (ou X pour finir): ";
	$v_n = <STDIN>;
	chomp $v_n;
        print "\n";
 
        #test pour voir si le verbe est dans la liste (un foreach sur les verbes avec un test à chaque iteration)
 
        #Le verbe est dans la liste:affichage de toutes les combinaisons possiblers avec ce verbe (un foreach sur les noms avec un print à chaque nouveau nom)
 
}while ($v_n ne "X");
 
print "Fin des traitements !\n";

Pour afficher tous les éléments d'une liste (par exemple pour afficher tous les verbes disponibles):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use Data::Dumper;
print Dumper(@liste);