Discussion :

[slackuser]

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 :

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

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 !!

[djibril]

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

[slackuser]

Bonjour et merci djibril.

L'equivalent de ça mais en Perl.

Code :

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

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

[djibril]

Code :

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

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";

[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.

[djibril]

bah excuse moi, mais j'ai testé ton script shell, et je n'ai pas de menu