Discussion :

[perldebut]

je suis débutant en perl et j'aimerais traduire cet algorithme en ce langage svp ?

En effet , j'ai un tableau qui contient deux colonnes et plusieurs lignes variables:
La première colonne du tableau correspond au nom d'une variable et la deuxième colonne est sa valeur.
une valeur peut être 0 ou 1
moi je veux afficher un SEUL message si AU MOINS une valeur d'une variable vaut 0
et si tous les valeurs des variables valent 1 j'affiche un autre message


des idées svp

[Philou67430]

J'ai bien des idées... mais elle ne sont pas compliquées

En fait, ça doit bien tenir en deux lignes.
Pour répondre complètement il faudrait aussi savoir comment est codé le changement de colonne (espaces ou tabulations ?).

Le truc, c'est que j'ai comme l'impression que c'est un exercice d'étudiant, et que tu voudrais bien avoir la solution
Peux-tu nous dire où tu en es, et ce que tu n'arrives pas à faire ?

[Jasmine80]

Aide toi de la FAQ et montre nous un petit bout de code :
listes associatives
Structures de contrôle

et comme Philou le fait remarquer, quelle est la structure de ton tableau? Est-ce déjà du Perl, est-ce un tableau excel ...

[perldebut]

autrement dit:
oubliant le tableau
je veux afficher une seule fois un message (error) si au moins une valeur d'une variable est égale à 0
sinon j'affiche un message (ok)

syntaxiquement , comment traduire çà en perl ?
(je ne suis pas un étudiant)

[Jasmine80]

autrement dit:
oubliant le tableau
je veux afficher une seule fois un message (error) si au moins une valeur d'une variable est égale à 0
sinon j'affiche un message (ok)

syntaxiquement , comment traduire çà en perl ?
(je ne suis pas un étudiant)

utilise un if()... else... cf FAQ structure de contrôle

[perldebut]

par exemple:
while (my $var )
{
vérifier si au moins $var=0
si oui
alors afficher message(error)
sinon(cad tous les $var=1)
alors afficher message(ok)
}

le problème ici que le message(error) s'affiche autant de fois des $var=0 ,
ce que je veux moi un seul et unique affichage de message(error) quand au moins une $var=0
et pareil pour le message(ok) si toutes les $var =1

[Schmorgluck]

Alors ne fais aucun affichage dans la boucle.

[Jasmine80]

par exemple:
while (my $var )
{
vérifier si au moins $var=0
si oui
alors afficher message(error)
sinon(cad tous les $var=1)
alors afficher message(ok)
}

le problème ici que le message(error) s'affiche autant de fois des $var=0 ,
ce que je veux moi un seul et unique affichage de message(error) quand au moins une $var=0
et pareil pour le message(ok) si toutes les $var =1

quand tu affiches pour la première fois le message d'erreur, sors de ta boucle while (last())

[perldebut]

merci pour le last() , ça marche
mais comment je fais pour les $var=1 ?
j'ai essayé de cette manière et elle ne marche pas !!
while ( my $var ) {
if ($var== 1){
redo;
print message(ok);
}


des solutions ?

[perldebut]

alors des idées pour résoudre mon petit problème ?

[Schmorgluck]

Essaie en ne mettant aucun print dans ta boucle.

[perldebut]

oui, mais comment je vais satisfaire cette condition en affichant un message en dehors de cette boucle ?!

[Philou67430]

L'algo suivant devrait fonctionner :

Code :

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

1
2
3
4
5
6
7
8
$toutes_a_un = 1;
pour toute mes variables $var
  $toutes_a_un <- $toutes_a_un && ($var == 1)
 
si $toutes_a_un alors
  print "toutes les variables à un"
sinon
  print "au moins une variable à zéro"

[perldebut]

excellente réponse , ça marche nickel merci beaucoup

[perldebut]

en fait pourquoi vous avez mis ($var==1) et pas $var seulement ?!
le test doit être fait sur toutes les valeurs (soit 1 ou 0) non ?

[Philou67430]

je n'ai pas mis $var tout court, pour coller au plus près de ta question initiale. Mais si $var peut contenir n'importe qu'elle valeur, alors il est préférable d'utiliser $var seule.