Transformation d'un hash

**djibril** · 14/09/2007, 10h24

Salut,
Un peu fatigué, alors je demande de l'aide aux collegues perléens

.
Je dispose d'un hash ressemblant à ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my %position = (
  "01" => "03",
  "04" => "06",
  "07" => "09",
  "11" => "13",
  "14" => "16",
  "19" => "21",  
  "25" => "30",  
  "35" => "39",  
  "40" => "50",  
);

et je voudrais le transformer en

Code :

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

1
2
3
4
5
6
7
my %position = (
  "01" => "09",
  "11" => "16",
  "19" => "21",  
  "25" => "30",  
  "35" => "50",  
);

En gros, dès qu'il y a des valeurs qui se suivent avec les cles.
Cle = position debut, valeur = position fin

Merci pour celui qui me trouve la réponse

**djibril** · 14/09/2007, 12h04

je m'arrache les cheveux

**MarneusCalgarXP** · 14/09/2007, 14h39

Et bien une hashmap peut être vue comme un tableau avec un nombre pair d'éléments. Dans ton cas particulier, toutes les valeurs se suivent, on va se servir de cette particularité:

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
26
27
28
29
30
31
32
33
 
use strict;
use warnings;
 
my %position = (
  "01" => "03",
  "04" => "06",
  "07" => "09",
  "11" => "13",
  "14" => "16",
  "19" => "21",  
  "25" => "30",  
  "35" => "39",  
  "40" => "50",  
);
 
# la map ne stocke pas les données dans l'ordre d'insertion, il faut trier le tableau.
my @array = %position;
# ici on se sert du cas particulier : toutes les valeurs se suivent
@array = sort @array;
 
%position = (); 
 
my $minvalue = $array[0];
for (my $i = 0; $i < scalar(@array); $i += 2) {
	my $valeur1 = $array[$i + 1]; # dans le couple "01" => "03", on prend "03"
	my $valeur2 = $array[$i + 2] || 0; # dans le couple suivant ("04", "06"), on prend "04. S'il on est en dehors du tableau, on prend la valeur "0"
	if ($valeur2 != ($valeur1 + 1)) {
		$position{$minvalue} = $valeur1;
		print("$minvalue - $valeur1\n");
		$minvalue = $valeur2;
	} 
}

**djibril** · 14/09/2007, 14h57

bon bah, que dire de plus à part merci.
J'ai plus de neurones et ton script fonctionne à merveille.
Merci beaucoup

Djibril

**Mr6** · 14/09/2007, 15h30

Je trouvais la question amusante pour un vendredi tantot, donc voici ma proposition

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
26
27
28
29
30
31
32
33
34
35
36
37
 
use strict;
 
my %position = (
  "01" => "03",
  "04" => "06",
  "07" => "09",
  "11" => "13",
  "14" => "16",
  "19" => "21",
  "25" => "30",
  "35" => "39",
  "40" => "50",
);
 
my %new_position;
my @k_pos;
my @v_pos;
my $saut=0;
foreach my $key (sort keys (%position)) {
  push @k_pos,$key if $saut == 0;
  $saut-- if $saut != 0;
  next if $saut != 0;
  my $next = sprintf ("%02d", $position{$key}+1);
  if ($position{$next} ne '') {
    $saut=1;
  }
  else {
    push @v_pos,$position{$key};
  }
}
my $i=0;
foreach my $k (@k_pos) {
  $new_position{$k} = $v_pos[$i];
  print "$k => $new_position{$k}\n";
  $i++;
}