Discussion :

[nymus7]

J'essai de développer un petit menu pour la gestion de quelques tâches.
Pour ce fait j'utilise une fonction, MAIS mon problème est le suivant :
"Comment retourner la valeur d'une variable, ex: $choix"

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
 
#!/usr/bin/perl -w
use strict;
 
sub menu {
 print "Démarrer apache 1.\n";
 print "Stopper apache 2.\n";
 print "Quitter 100.\n";
 print "faites votre choix : ";
 my $choix = <STDIN>;
 return $choix;
}
 
while ($choix != 100) {
  menu();
  if ($choix = 1) { 
    fonction1();
  }else{
    if ($choix = 2) {
     fonction2();
    }
  }
}

Merci pour votre aide et vos idées....
nm

[Jedai]

Comme ceci :

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
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl
use strict; use warnings;
 
my %items_menu = ( 1 => ["Démarrer apache", \&start_server], 
  2 => ["Stopper apache", \&stop_server],
  100 => ["Quitter", sub { exit 0 }],
);
 
my $choice = 0;
for (;;) {
  $choice = menu();
  while( not exists $items_menu{$choice} ) {
    print "Choix incorrect.\n";
    $choice = menu();
  }
  $items_menu{$choice}[1]->();
}
 
sub menu {
  foreach my $item (sort keys %items_menu) {
    print "$item . $items_menu{$item}[0]\n";
  }
  print "Faites votre choix : ";
  chomp (my $input = <STDIN>);
  return $input;
}
 
sub start_server {
  # ...
}
 
sub stop_server {
  # ...
}

Bon, j'ai un peu modifié ton code...
Mais la partie importante est que j'affecte le résultat de menu() à la variable $choice :

Code :

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

$choice = menu();

(tu remarqueras d'ailleurs qu'il n'y a plus de variable $choix dans menu(), elle n'est pas nécessaire, et cela peut entrainer une confusion comme dans ton cas).
C'est comme ça qu'il faut faire si possible. Il y a moyen de faire fonctionner un truc qui ressemble à ton script, mais c'est hautement déconseillé : une fonction ne devrait pas avoir d'effet de bord, idéalement.

Ton script sans les "améliorations", juste la correction nécessaire pour le faire marcher :

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
#!/usr/bin/perl -w
use strict;
 
sub menu {
 print "Démarrer apache 1.\n";
 print "Stopper apache 2.\n";
 print "Quitter 100.\n";
 print "faites votre choix : ";
 my $choix = <STDIN>;
 chomp($choix); # sinon ça ne marchera pas...
 return $choix;
}
 
my $choix = 0; # la variable déclarée dans menu() n'est pas la même variable
while ($choix != 100) {
  $choix = menu();
  if ($choix == 1) { # attention, l'égalité numérique se teste avec == pas =
    fonction1();
  } elsif ($choix == 2) { # elsif est plus court que else if et évite trop d'indentation
     fonction2();
  }
}

--
Jedaï

[nymus7]

Merci pour ta réponse... cela à tellement l'air simple comme cela!
Cela n'est pas facile de trouver directement les bonnes réponses....

Toutefois, j'ai quelques questions :
1. Que signifie les point-virgule dans la boucle for :

Code :

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

for (;;)

2. Je ne connaissais pas "exists" ? le not correspondant-il a l'expression

Code :

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

!

dans le code :

Code :

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

while( not exists $items_menu{$choice} )

3. Là, je patauge :
C'est un tableau avec une valeur $choice mais qu'est-ce le

Code :

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

[1]->()

dans le code :

Code :

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

$items_menu{$choice}[1]->();

J'suis vraiment un débutant dans le domaine... et merci encore pour les conseils!

nm

[GnuVince]

Merci pour ta réponse... cela à tellement l'air simple comme cela!
Cela n'est pas facile de trouver directement les bonnes réponses....

Toutefois, j'ai quelques questions :
1. Que signifie les point-virgule dans la boucle for :

Code :

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

for (;;)

C'est un idiôme pour indiquer une boucle infinie. while (1) peut également être utilisé. Question de goût.

2. Je ne connaissais pas "exists" ? le not correspondant-il a l'expression

Code :

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

!

dans le code :

Code :

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

while( not exists $items_menu{$choice} )

! et not sont synonymes, mais avec une précédence différente.

3. Là, je patauge :
C'est un tableau avec une valeur $choice mais qu'est-ce le

Code :

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

[1]->()

dans le code :

Code :

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

$items_menu{$choice}[1]->();

Jedaï a fait un "mapping" entre un entier (le choix à entrer au clavier) et un tableau (en fait, un arrayref) qui contient deux éléments: la chaîne descriptive et une référence à une fonction. Quand il dit

Code :

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

1
2
 
$items_menu{$choice}[1]->();[

Il commence par extraire l'arrayref du hash, ensuite il sélectionne le second élément -- la référence à la fonction -- et finalement, il fait l'appel à la fonction.

Code :

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

1
2
3
4
5
6
7
8
9
 
sub dire_bonjour {
  my $nom = shift;
  print "Bonjour $nom\n";
}
 
dire_bonjour("Vincent"); # => Bonjour Vincent
my $subref = \&dire_bonjour;
$subref->("Laurent"); # => Bonjour Laurent

[Woufeil]

Salut,

1. Que signifie les point-virgule dans la boucle for :

Code :

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

for (;;)

Il faut savoir qu'une boucle for classique (j'entends par là comme en C) est en trois partie : initialisation, test, incrémentation. Par exemple :

Code :

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

for ($i = 0 ; $i < 10 ; $i++)

Le fait de mettre for(;; ) signifie uniquement qu'on ne fait aucune des trois partie, donc on ne fait que boucler, donc on fait une boucle infinie

2. Je ne connaissais pas "exists" ? le not correspondant-il a l'expression

Code :

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

!

dans le code :

Code :

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

while( not exists $items_menu{$choice} )

exists vérifie l'existence d'un élément dans un tableau ou une table de hachage... En l'occurrence, dans le code de Jedai, on cherche l'existence d'une clé ($choice) dans la table de hachage. Oui, not est synonyme de ! (en gros, en réalité ce n'est pas exactement pareil).

3. Là, je patauge :
C'est un tableau avec une valeur $choice mais qu'est-ce le

Code :

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

[1]->()

dans le code :

Code :

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

$items_menu{$choice}[1]->();

En gros, le hachage contient des références à des sous-porgrammes, et cette écriture permet d'appeler le sous-programme référencée en ne lui passant aucun argument

€dit : grille par Vince

[Jedai]

Et bien le forum est réactif, c'est vraiment un plaisir !

Oui, not est synonyme de ! (en gros, en réalité ce n'est pas exactement pareil).

En fait la seule différence tient à la priorité de l'opérateur, "not" a une priorité très faible par rapport à !, ou même dans l'absolu. Comme la plupart du temps on veut dire !(tout ce + qui suit) et pas (!(tout ce)) + (qui suit), je préfère utiliser not, ainsi je peux éviter de mettre tout un tas de parenthèse inélégantes.

De même && et || ont des variantes "and" et "or" qui ont une priorité très faible. Selon les cas l'une ou l'autre variante est plus appropriée.

--
Jedaï

[nymus7]

Merci à tous pour vos réponse rapide et clair!
Bon, c'est vrai que les arrays, les réfs,.... ils faut du temps pour les assimiler (j'espère!!)

Ciao
nymus

[GnuVince]

Merci à tous pour vos réponse rapide et clair!
Bon, c'est vrai que les arrays, les réfs,.... ils faut du temps pour les assimiler (j'espère!!)

Ciao
nymus

C'est pas très sorcier. Tu as trois types de variables en Perl: scalaire, tableau et hash. Voici un petit résumé, en espérant qu'il soit assez clair.

Scalaire: une valeur simple (penser au singulier). Exemple, un nombre ou une chaîne de caractères (une référence est aussi un scalaire, j'y reviens un peu plus tard.) On s'en servirait pour garder le nom ou l'âge d'une personne:

Code :

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

1
2
3
4
 
my $nom = "Vincent";
my $age = 24; # Snif, je suis vieux
my $couleur_preferee = "bleu";

Tableau: appelé "array" en anglais, c'est un conteneur. Il permet de stocker dans une même variable plusieurs valeurs. Les valeurs qu'il contient sont des scalaires. On accède aux valeurs avec un index commençant à 0.

Code :

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

1
2
3
 
my @films_preferes = ("Babar", "Les Schtroumpfs", "Aladdin");
print $films_preferes[2]; # => Aladdin

Hash: je suis pas sûr comment on traduirait ça en français. C'est le même principe que le tableau à l'exception qu'on peut utiliser autre chose que des entiers pour accéder aux valeurs. C'est un peu le même principe qu'un botin téléphonique.

Code :

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

1
2
3
4
5
6
7
8
 
my %telephones = (
    "cellulaire" => "790-555-1212",
    "maison" => "123-555-9090",
    "travail" => "321-555-6666",
);
 
print $telephone{"maison"}; # => "123-555-9090"

Références: Comme je l'ai mentionné plus tôt, un tableau peut contenir que des scalaires. Comment avoir des arrays dans un array alors? Avec des références. Les références sont des scalaires qui "pointent" vers une autre variable.

Code :

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

1
2
3
4
5
 
my @array = (1, 2, 3);
my $array_ref = \@array;
 
print $array_ref->[0]; # => 1

Il y a beaucoup plus de choses à dire sur les références et les autres types de données, mais j'espère que mes explications vont t'aider à comprendre un peu de quoi il s'agit.

[nymus7]

Merci beaucoup GnuVince... maintenant j'y vois plus clair.....