Discussion :

[Jjeje007]

Salut a tous,

J'aimerai testé si un nombre taper sur STDIN rentre bien dans une certaine fourchette.
Le seul problème c'est que le nombre peut-etre aussi fractionnel (comprendre à virgule) et c'est la que ca passe pas avec le module Number::Range que j'ai trouvé sur CPAN.

Voilà mon script avec Number::Range :

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
#!/usr/bin/perl
 
use strict;
use warnings;
use Number::Range;
 
my ($s_q_audio);
my ($q_audio);
	do {
		print "       Tapez un chiffre compris entre '-1' et '10' : ";
		$q_audio = <STDIN>; chomp $q_audio;
		my $range = Number::Range->new("-1.00..10.00");
			if ( $range->inrange( $q_audio ) ) {
				print "OK\n";
				$s_q_audio = "20";
			}
			else {
				print "Pas bon :(\n";
				$s_q_audio = "20";
			}
	} until ( $s_q_audio eq "10" );

C'est normal que l'on ne sorte jamais de la boucle do - until, c'est pour testé.

Voilà ce que ca donne dans le shell :

Tapez un chiffre compris entre '-1' et '10' : -1
OK
Tapez un chiffre compris entre '-1' et '10' : 10
OK
Tapez un chiffre compris entre '-1' et '10' : 2.75
Pas bon

Alors, comment testé si le nombre tapé sur STDIN soit bien compris entre -1 et 10 en sachant que celui-ci peut-être à virgule ?

Jjeje007

[Woufeil]

Bonjour,

Je ne comprend pas pourquoi tu ne te contentes pas d'un test >= -1 and <=10 ... Il passera très bien !
Mais si tu veux absolument utiliser ton module, ne garde que la partie entière de ton nombre avec la fonction int ! Fais juste attention aux fourchettes que tu vas utiliser dans ce cas, la partie entière de 10,5 selon Perl est 10 : si tu testes si ton nombre est plus petit ou égal à 10 et que tu prends la partie entière de 10.5, le test sera validé !

[Jedai]

Bonjour,

Je ne comprend pas pourquoi tu ne te contentes pas d'un test >= -1 and <=10 ... Il passera très bien !

Je vais supposer d'emblée qu'il veut quelque chose de plus complexe que cela, par exemple une union d'intervalle de réels. Dans ce cas utiliser Number::Range pouvait sembler raisonnable, puisqu'on peut définir une "Range" de 1 à 10 et de 20 à 30, puis faire le test aussi facilement qu'avant (alors qu'avec ta solution c'est plus compliqué).
Cependant Number::Range est visiblement limité aux entiers (et très efficace pour eux : O(1), mais un peu gourmand en espace), ce qu'il lui faut c'est plutôt Set::Infinite.

--
Jedaï

[Jjeje007]

Je ne comprend pas pourquoi tu ne te contentes pas d'un test >= -1 and <=10 ... Il passera très bien !

Simplement parce que je connaissais pas (suis un noob, j'aurais du le préciser )
Il se trouve qu'en cherchant un peu avec mon pote google je suis tomber sur Number::Range et que c'était plutot simple à mettre en place

Bref, je te remercie, je vais utiliser ">= -1 and <= 10", ca marche presque bien.
Je dis presque parce que si on tape rien, j'ai ca :

Tapez un chiffre compris entre '-1' et '10' :
Argument "" isn't numeric in numeric ge (>=) at ./test3 line 12, <STDIN> line 9.
OK

Et il print quand même ok

:::Edit :::

Je viens de rajouter :

Code :

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

$q_audio =~ /\d+/

Et c'est bon, je n'ai plus le "Argument "" isn't numeric in numeric ge (>=) at ./test3 line 12, <STDIN> line 9."

Merci !!

Jjeje007