Discussion :

[Xav_33]

Bonjour,

j'ai débuté Perl depuis quelques mois et j'ai souvent erré sur votre forum pour résoudre mes problèmes. Mais cette fois, après pas mal de tests j'en appelle à votre savoir.

Voici mon problème :

j'ai deux tableaux , @tableau1 qui varie selon chaque clés d'une table d'un hash et @tableau2 qui ne varie pas.

Ce que j'aimerai c'est encadrer chaque valeur de mes X @tableau1 par celles du @tableau2 et récupérer ces valeurs d'encadrement.

J'ai tenté les while, until mais ca finit toujours en boucle infinie

J'ai trouvé ce bout de solution sur ce forum et j'ai bidouillé à ma sauce mais çà ne fonctionne pas super bien...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
foreach my $key ( keys %hash)
     {
 
     my @tableau1 = @{$hash{$key}} ;
 
     foreach my $value1 (@tableau1)
            {
            my $value2 = $tableau2[0] ;
            map {$value_sup = $value2 if ( $values2 => $value1) }@tableau2 ;
            map {$value_inf  = $value2 if ( $values2 <= $value1) }@tableau2 ;
            }
      }

Merci pour votre aide !

[Lolo78]

Je ne comprends pas ce que tu veux faire, mais ta fonction map n'itère sans doute pas sur les valeurs contenues dans le tableau, puisqu'elle utilise 4 variables fixées.

Pour que le code de map utilise les valeurs du tableau2, il faut utiliser la variable $_.

Probablement quelque chose comme:

Code :

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

map {$value_sup = $_ if ( $_ >= $value1) }@tableau2 ;

Mais c'est juste une idée, car je ne comprends pas ce que tu veux faire exactement.

En fait, c'est une erreur d'utiliser map dans ce contexte. La fonction map est faite pour lire un tableau, faire un travail sur ses valeurs et retourner un autre tableau.

Dans ton cas, c'est plutôt foreach qu'il faudrait utiliser.

[Lolo78]

foreach @tableau2 { $value_sup = $_ if ( $_ >= $value1) };

[Xav_33]

En fait, dans mon @tableau2 j'ai les valeurs suivantes [ 0.1, 0.2, 0.5, 1, 2, 5, 10, 15].

Et dans mon @tableau1 j'ai par exemple les valeurs [ 0.145, 0.149, 0.648, 1.235, etc...]

Je veux pour chaque valeurs des mes X @tableau1 :

0.1 < 0.145 < 0.2
0.1 < 0.149 < 0.2
0.5 < 0.648 < 1
1 < 1.235 < 2

ETC...

J'ai essayé le solution que tu m'as fourni :

Code :

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

foreach @tableau2 { $value_sup = $_ if ( $_ >= $value1) };

elle minore bien chacune de mes valeurs. J'ai essayé de la retranscrire pour déterminer la valeur supérieur la plus proche mais cela ne fonctionne pas, elle majore avec la plus grande valeur de mon @tableau2.

[Gardyen]

que penses-tu de ça ?

Code :

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

1
2
3
 
foreach (@tableau2) { $value_inf = $_ unless ( $_ >= $value1) };
foreach (reverse(@tableau2)) { $value_sup = $_ unless ( $_ <= $value1) };

[Philou67430]

Une autre méthode

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
22
23
24
25
#!/usr/bin/perl
 
use feature qw(:5.10);
use strict;
use warnings;
 
my @tableau1 = (0.145, 0.149, 0.648, 1.235);
my @tableau2 = (0.1, 0.2, 0.5, 1, 2, 5, 10, 15);
 
foreach my $val (@tableau1) {
  my @inter = @tableau2;
  my ($val_inf, $val_sup) = (shift @inter);
  if ($val >= $val_inf) {
    while ($val_sup = shift @inter) {
      last if $val <= $val_sup;
      $val_inf = $val_sup;
    }
  }
  if ($val >= $val_inf && $val <= $val_sup) {
    say "$val is between $val_inf and $val_sup";
  }
  else {
    say "$val is outside any interval";
  }
}

[Xav_33]

Bon en faisant un mixe de vos solutions ça fonctionne

Code :

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

1
2
3
 
foreach (reverse(@tableau2)) { $value_sup = $_ unless ( $_ <= $value1) };
foreach (@tableau2)             { $value_inf   = $_ if ($energy >= $_ ) } ;

Par contre il faut que ma liste soit bien trié...et la j'ai un soucis :

j'ai beau faire un :

Code :

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

1
2
 
@tableau2 = reverse ( sort { $a < $b }@tableau2 ) ;

je print :

Code :

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

1
2
15.0 10.0 3.0 2.0 5.0 1.5 1.3 1.0 0.7 0.5 0.1

Il ne veut pas me ranger le 5.0 à sa bonne place ! Ce qui fait génère une erreur dans mon encadrement puisque si 5 majore ma valeur, il ne va pas aller chercher si 2 ou 3 la majore également !