Perl : Comment faire un menu pour le terminal.

Version imprimable

30/09/2009, 08h35
slackuser

Perl : Comment faire un menu pour le terminal.
Bonjour à tous.

Savez-vous comment on fait un menu en perl.
Je sais le faire en shell bash ou ksh mais en perl.
J'aimerai connaitre la synthaxe de base sur un exemple basique d'affichage
Code:

1 2 3 4 5 6 7 8 9 ================= Mon super menu ================= 1) je vais afficher le mot toto 2) je vais lister le home de toto Tapez votre choix (1, 2) : ==================
Je n'ai pas trouver de réponse sur le forum, ni sur google..
Si vous avez un lien ou autre, merci :o)

Bonne journée à tous !!
30/09/2009, 09h36
djibril

Qu'entends tu par menu sur ton terminal ? Un GUI interne au terminal, ou une serie de question dans le terminal ?

Bonjour et merci djibril.

L'equivalent de ça mais en Perl.

Code:

1
2
3
4
5
6
7
8
9
 
#!/bin/sh
echo "Choisir une action:"
read reponse
case $reponse in
    a)    echo toto ;;
    b)    ls ;;
    *)    exit;;
esac

Code:

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use warnings;
use strict;
 
print 'Choisir un nombre : ';
my $reponse = <STDIN>;
chomp($reponse);
 
print "Vous avez choisi : $reponse\n";

30/09/2009, 10h13
slackuser

merci pour ton poste
ça c'est plus un l'equivalent d'un read en shell.
Il n'existe un equivalent de case pour creer des menus en perl ?

Ou je dois faire un appel system externe à chaque fois avec system() ?

merci.
30/09/2009, 10h27
djibril

bah excuse moi, mais j'ai testé ton script shell, et je n'ai pas de menu ;)
30/09/2009, 10h52
slackuser

oui en effet, dur dur le reveil lol.
Bon, je faire un truc carré ce soir digne de devellopez :o)

Pas de switch officiel en Perl

Bonjour,
Il n'existe pas de switch/case en Perl (ou alors des moyen détournés).
Exemple:

Code:

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;
 
sub printMenu {
print "
1/ Choix1
2/ Choix2
q/ Quitter l'execution
 
Entrez votre choix:
";
}
 
my $response = "";
while ($response !~ /[qQ]/ ) {
  printMenu();
  $response = <STDIN>;
  chomp($response);
  print "Vous avez choisi : $response\n";
 
  if ( $response == 1) {
        print "Traitement numero1 en cours...\n";
  } elsif ( $response == 2) {
        print "Traitement numero2 en cours...\n";
  } elsif ( $response =~ /[qQ]/ ) {
        print "Au revoir !\n";
  }
  else {
        print "Choix inconnu !\n";
  }
}
 
exit 0;

Sinon, il y a des modules le faisant très proprement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 #!/usr/bin/perl use warnings; use strict; use Term::UI; use Term::ReadLine; my $term = Term::ReadLine->new('prompt'); my $reponse = $term->get_reply( prompt => 'Choisir un nombre : ', choices => [ 'Choix 1', 'Choix 2', 'Choix 3', 'Aucun choix'], default => 'Aucun choix', ); print "Vous avez choisi : $reponse\n";
Ce qui t'affiche :

Citation:

1> Choix 1
2> Choix 2
3> Choix 3
4> Aucun choix

Choisir un nombre : [4]: 4
Vous avez choisi : Aucun choix

voilà

Pour apprendre perl pense à lire les cours et tutoriels de formation à Perl : http://perl.developpez.com/cours/

30/09/2009, 19h19
slackuser

ah bah merci, c'est ça que je cherchais :o)
ça existe donc en Perl, pas besoin de faire du sh pour ça. merci.
01/10/2009, 09h16
djibril

Citation:

Envoyé par slackuser

ah bah merci, c'est ça que je cherchais :o)
ça existe donc en Perl, pas besoin de faire du sh pour ça. merci.

Tout est faisable en Perl, à part le café :ccool:. N'oublie pas de mettre ton post en résolu si c'est OK. Je vais d'ailleurs rajouter ce code dans les sources de notre rubrique perl.