Discussion :

[lcm31]

Bonjour,
J'ai un problème pour tester si un réel (comme 2.64736373627) appartient à un intervalle de réels (comme [1.567665666-1.989889826]).
J'ai essayé avec une expression régulière comme ceci :
if($angle =~ m/[$lastangle-$lastangle+1]/)
$lastangle est défini avant par un random
mais ça ne marche pas. Pouvez-vous m'aider?
Merci beaucoup!

[djibril]

voici un ex :

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
 
use strict;
use Carp;
use warnings;
 
my $intervalle = "[1.567665666-1.989889826]";
my ($min,$max) = $intervalle =~ m{\[(.+)-(.+)\]};
my $nombre = 2.64736373627;
 
if ( $nombre > $min and $nombre < $max ) {
  print "$nombre dans l'intervalle $intervalle\n";
}
else {
  print "$nombre n'est pas dans l'intervalle $intervalle\n";
}
exit;

[Jasmine80]

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
#!/usr/local/bin/perl
 
use strict;
use warnings;
 
 
# Number::Interval - Implement a representation of a numeric interval
use Number::Interval;
 
 
 
my $i = new Number::Interval( Min => 1.567665666, Max => 1.989889826);  # [1.567665666-1.989889826]
my $value = 1.8;  
 
# $i->contains( $value ) renvoie 1 ou 0 
if ($i->contains( $value ) == 1){
	print "$value appartient à l'intervalle\n";
}

Si tu as beaucoup d'intervalles à manipuler, tu peux également utiliser le module Number::Interval. http://search.cpan.org/~tjenness/Num...01/Interval.pm

[lcm31]

merci beaucoup! ca fonctionne très bien