Discussion :

[caro_du_94]

Bonjour,

j'aimerai écrire un code qui permet de demander à l'utilisateur de saisir un texte ou une variable puis de récupérer ce texte ou cette valeur.
Par exemple, je demande à l'utilisateur d'écrire un texte puis le programme édite ce texte en sortie.

Voici mon code:

Code :

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

1
2
3
4
5
6
#!/usr/bin/perl
 
print "saisissez un texte";
 
$saisie = <STDIN>;
print("$saisie");

je suis sous unix et j'utilise un éditeur qui est BBedit.

merci

caro

[djibril]

#!/usr/bin/perl -w
use strict;
use Carp;

my $saisie;
print "saisissez un texte\n";

$saisie = <STDIN>;
print "$saisie\n";

[Jeh]

ouaich, c'est plus propre.
Tu veux faire quoi concrètement Caro ? Tu bosses en ligne de commandes ?

PS pour djibril : t'as une faute d'orthographe dans ta signature...

Je ferais de mon mieux pour vous aider si possible telle est ma devise

[djibril]

Merci Jeh,
signature recitifiée .

[Arioch]

Merci Jeh,
signature recitifiée .

Et c'est pas "je ferai" ???

[Arioch]

#!/usr/bin/perl -w
use strict;
use Carp;

my $saisie;
print "saisissez un texte\n";

$saisie = <STDIN>;
print "$saisie\n";

Petit peaufinage

Code :

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

1
2
3
4
5
6
do
{
    print "saisissez un texte\n";
    chomp($saisie = <STDIN>);
} while (! $saisie);
print "$saisie\n";

[caro_du_94]

merci beaucoup,
ca marche!

Mais j'ai encore deux questions, a quoi sert le module use Carp?

et comment peut-on écrire un code qui demande à l'utilisateur de saisir deux chiffres et les additionne ensuite?

merci

caro

[djibril]

use strict; => demande à Perl de vérifier que ttes les variables sont bien déclarées
use Carp; => Recherche toutes les erreurs de syntaxe.
le -w en premiere ligne demande l'affichage de warning.

Pour ta deuxieme question, refléchie un peu, tu trouveras c'est simple.

[Jeh]

Il est dur le petit djibril
Essaie ça :

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
 
my $cpt=1;
my @chiffres;
while ($cpt<3) { 
    print "\nsaisissez le chiffre $cpt : "; 
    $saisie = <STDIN>; 
    chomp($saisie);
    if ($saisie =~ /^[0-9]$/) {
         push @chiffres,$saisie;
        $cpt++;
    } else {
        print "\nSaisie incorrecte.\n";
    }
} # fin du for
my $resultat = $chiffres[0] + $chiffres[1];
print "resultat : $resultat";

[caro_du_94]

merci bcp ca marche!

j'avais trouvé un autre code ms beaucoup plus simple

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
#!/usr/bin/perl -w
 
use strict;
use Carp;
 
my $nb1;
my $nb2;
my $res;
 
print "entrer un nb";
$nb1 = <STDIN>;
 
print "entrer un autre nb";
$nb2 = <STDIN>;
 
$res = $nb1 + $nb2;
print "$res";

( on ne se moque pas, je débute)
c'est beaucoup plus simple et ca marche!
Donc il a raison quand même Djibril !


merci donc!

caro

[Jeh]

c'est plus simple mais ça ne vérifie pas que ce sont bien deux chiffres qui ont été entrés et ça ne reprend pas la saisie si le caractère entré n'est pas un chiffre....

[Arioch]

Je ne veux rien imposer mais le mieux est de passer par une boucle do while pour chaque demande de saisie. Tant que la saisie est invalide, ton programme reste dans la boucle et le seul moyen d'en sortir est que ce bourricot de user finisse ENFIN par taper ce qu'on lui a demandé

[myjuna]

salut,

qu'en est il lorsquon veut autoriser 2 saisies seulement, et reposer la question tant que la reponse nest pas lune des 2 reponses autorisees ?

Code :

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

1
2
3
4
5
6
7
8
do
{
print "Souhaitez-vous a present tracer le schema du reseau ? (o/n)\n"; 
chomp($reponse = <STDIN>); 
}
while ( ($reponse ne o) || ($reponse ne n) ) ;
 
print "$reponse\n";

avec ce code, seule la reponse "o" est acceptee ?!
merci

[myjuna]

ok ca marche avec &&