Discussion :

[Leroimage]

Salut a tous, je debute plus ou moins en PERL, et je fais un sous-programme qui doit rendre la valeur max d'un nombre quelconque d'arguments.

J'ai ecris le programme suivant mais mon for ne s'incremente pas du tout. Du coup, le maximum est toujours la premiere valeur rentrée. Est ce que quelqu'un pourrais m'aider?

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
22
23
24
25
#!/usr/bin/perl
sub max(@)
{
$max = $tab[0];
for ($i=1,$i=$#tab,$i++)
{
print $i;
if ($tab[$i]>$max)
{$max=$tab[$i];}
}
print "le max est $max \n";
}
 
print "Donnez un nombre \n";
chomp ($a = <STDIN>);
 
while ($a ne "fin")
{
push @tab,$a;
print "Donnez un nombre (tapez fin pour arreter) \n";
chomp ($a=<STDIN>);
}
 
pop @tab;
max(@tab);

Merci a vous tous d'avance ;-)

[Arioch]

Hello,

2 trucs :

1) utilise les balises Code pour bien mettre en évidence le code que tu nous montres.

2) regarde ton premier for :

Code :

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

for ($i=1,$i=$#tab,$i++)

$i vaut 1 à l'initialisation et tout de suite après, tu indiques tant que $i = $#tab

Ca peut pas fonctionner

[GLDavid]

Bienvenue

C'est normal, il n'y a pas de condition dans ton for :

Code :

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

for ($i=1,$i=$#tab,$i++)

Il aurait fallu écrire :

Code :

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

for ($i=1,$i<$#tab,$i++)

Sinon, essaies de mettre d'ores et déjà les balises codes . Sinon, si ton code est mal présenté sans ajouter les balises codes, les gens ne s'attarderont pas sur ton post. Enfin, puisque tu débutes en Perl, je ne saurais trop te recommander de lire notre FAQ ainsi que mes cours.

@++

PS : arghhh, grillé par Arioch !

[Arioch]

GLDavid, je t'ai grillé de qq minutes

PS : arghhh, grillé par Arioch !

Ce sont des choses qui arrivent...Pas souvent mais ça arrive

[GLDavid]

J'ai vu ! Il y a pas de problème Arioch

[Leroimage]

Merci de votre aide, ;-) Je saurais la prochaine fois pour la balise ;-) Desolé pour l'oubli

[GLDavid]

Leroimage, pour mettre le tag Résolu, il faut que tu cliques sur le bouton en bas à gauche de ce thread. Mais c'est déjà ça de l'avoir ajouté à la main. Merci d'avance

@++

[Jedai]

Code :

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

for ($i=1,$i<$#tab,$i++)

C'est plutôt " $i < @tab " ou " $i <= $#tab " si on veut parcourir l'intégralité du tableau par contre.

--
Jedaï

[Woufeil]

Euh, il n'a pas besoin de parcourir l'intégralité du tableau, mais juste l'intégralité du tableau moins le premier élément, étant donné qu'il compare chaque valeur à la valeur max et que comme première valeur max il a mis la première valeur du tableau

Mais bon, j'aurais quand même fais un foreach moi

[Jedai]

C'est pour ça que $i est initalisé à 1, mais il faut tout de même aller jusqu'au dernier élément.
Par ailleurs, c'est sûr qu'un foreach eu été plus joli, mais bon.

--
Jedaï

[Woufeil]

Oups, yep, j'avais pas vu que le code n'allait que jusqu'à l'avant dernier élément.

Pour le foreach, je met la syntaxe, c'est tellement facile et beaucoup plus joli :

Code :

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

1
2
3
4
5
6
7
foreach my $i (@tab)
{
    if ($i>$max)
   {
       $max=$i;
   }
}

Simple, efficace, et surtout optimisé dans l'interpréteur Perl !