Précision de types en perl

Bonjour
Commencant en perl j'ai un programme tout bete qui me calcule si le nombre que j'entre est pair ou non:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl -w #petit prog destiné a verifier la parité d'un nombre.   printf ("Rentrez un nombre: \n"); chomp($A=<STDIN>);   if ($A%2==0) { print ("$A est un nombre pair\n"); } else { print ("$A est un nombre impair\n"); }

---

Seulement voila: si l'on rentre une lettre au lieu d'un nombre le comportement devient n'importe quoi j'aurais donc aimé rajouter une clause elsif précisant que si $A n'est pas un entier, l'utilisateur doit recommencer en saisissant un nombre entier.
Donc un elsif qui permette de clarifier le type de $A tout en me permettant de revenir au début mon problème étant que je ne sais pas comment l'écrire en perl
:merci: de vos idées

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

sub IsNumeric { my $InputString = shift;   if ($InputString !~ /^[0-9|.|,]*$/) { return 0; } else { return 1; } }     my $A = 5.2; if (IsNumeric($A)) { if ($A%2) { warn "$A est un nombre pair\n"; } else { warn "$A est un nombre impair\n"; } } else { warn "pas un nombre"; }

---

Bonsoir
8O il me faudrait créer une fonction rien que pour ça 8O
Sinon j'avoue que je ne comprends pas très bien l'expression régulière: !~ /^[0-9|.|,]*$/ sur le début le !~
Qt à warn:

Code:

---

1 2	$ perldoc warn No documentation found for "warn".

---

Tu pourrais commenter ta solution s'il te plait?

Citation:

---

Envoyé par Gnux

Bonjour
Commencant en perl j'ai un programme tout bete qui me calcule si le nombre que j'entre est pair ou non:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl -w #petit prog destiné a verifier la parité d'un nombre.   printf ("Rentrez un nombre: \n"); chomp($A=<STDIN>);   if ($A%2==0) { print ("$A est un nombre pair\n"); } else { print ("$A est un nombre impair\n"); }

---

Seulement voila: si l'on rentre une lettre au lieu d'un nombre le comportement devient n'importe quoi j'aurais donc aimé rajouter une clause elsif précisant que si $A n'est pas un entier, l'utilisateur doit recommencer en saisissant un nombre entier.
Donc un elsif qui permette de clarifier le type de $A tout en me permettant de revenir au début mon problème étant que je ne sais pas comment l'écrire en perl
:merci: de vos idées

---

non y a plus simple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl -w #petit prog destiné a verifier la parité d'un nombre.   printf ("Rentrez un nombre: \n"); chomp($A=<STDIN>);   if ($A ~= /^\d+$/) { if ($A%2==0) { print ("$A est un nombre pair\n"); } else { print ("$A est un nombre impair\n"); } } else{ print "$A n'est pas un chiffre\n"; }

---

Code:

---

print ($variable%2 ? "impair": "paire");

---

Citation:

---

Envoyé par tfe

Code:

---

print ($variable%2 ? "impair": "paire");

---

---

J'avoue que j'ai de la peine à comprendre cet opérateur: si l'expression $var%2 est vraie ça retourne impaire c ça? Et si elle est fausse c'est pair.
Mon interrogation porte sur l'évaluation de la variable: à savoir si en perl une variable est dite vraie qut elle est évaluée à 1 ou à 0 ? Car si je fais un prog de test genre:

Code:

---

1 2 3 4

#!/usr/bin/perl -w use strict; $var=2; print ($var%2 ? "impair" : "pair");

---

J'obtiens pair ce qui veut dire que par l'interpréteur $var%2 a été interprété comme faux et donc qd perl une variable vraie retourne 1car si je mets 3 j'ai bien impair. Ca me semble bizarre (j'ai peut être trop l'habitude du return 0 :oops: )
En tout cas merci pour votre aide
PS:une dernière chose comment insérer un retour chariot pour l'affichage du résultat de l'opérateur ternaire?

Pour ce qui est de l'expression

Code:

---

($a%2)?"impair":"pair"

---

son fonctionnement est rigoureusement identique à celui du C !!

Si ce qui précède le ? est vrai, on prend la valeur d'avant le :.
Si c'est faux, on prend ce qui suit le :.

Ta difficulté porte en fait sur le ($a%2) qui est le reste de la division entière de $a par 2.

Si $a est pair, son reste de division par 2 est 0, ce qui logiquement se traduit par faux.
Si $a est impair, son reste de division par 2 est 1, ce qui donne la valeur logique vraie (est vraie toute valeur différente de 0, de "" et de undef).

C'est là qu'est la difficulté ;)



Sinon, il n'y a pas que le calcul pour savoir si un nombre est pair ;)
Il y a aussi

Code:

---

/\d[02468]$/

---

:P



P.S. pour ton retour chariot, tu peux utiliser, au choix :

Code:

---

print "Le nombre est ".(($a%2)?"impair":"pair")."\n";

---

ou

Code:

---

printf ("Le nombre est %s\n", ($a%2)?"impair":"pair");

---

Et pour compèter et répondre à ton problème initial, tu n'as pas réellement besoin d'un elseif 8O

Algorithmiquement, tout se résoud avec une boucle à condition terminale (type do {} while).

Enjoy :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl   use warnings; use strict;   my $a;   do { print ("Entrez un nombre :"); chomp ($a=<>); } while ($a !~ /^\d+$/);   print ("Le nombre est ".(($a%2)?"impair":"pair")."\n");

---

8)