Remplir un hash proprement

Version imprimable

salut,

il s'agit de la première fois que je me sers d'un hash, et du coup je me pose plein de question et notamment comment remplir proprement un hash à partir de deux listes.

si j'ai une liste (a, b, c, d) et une seconde (1,2,3,4), quelle est la technique la plus propre pour remplir un hash pour au final obtenir (a,1,b,2,c,3,d,4)?

En fait, à partir d'un fichier du style:
Code:

1 2 3 4 5 6 #User;Workload; Titi;6; Toto;4; Tata;1; Tutu;12;
je voudrais en sortir un hash comme décris précédement. J'ai commencé comme ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 $bb_base = "TLSE-data.bb"; open(FILE,"<$bb_base") or die ("problem to open the bb file."); while ( $bb = <FILE> ) { if ($bb !~ /^#/){ $tlse = (split m/\;/, $bb)[0]; $workload = (split m/\;/, $bb)[1]; push(@tlse_init,$tlse); push(@workload_init,$workload); } }
J'ai bien créé mes deux listes, amis aprés je suis sec.
J'ai lu les différents articles sur les hash mais y'a un truc qui a du m'échapper, j'essaye mais sans succès :aie:

Par avance merci

Code:

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
my $bb_base = "TLSE-data.bb";
my %mon_hash;
open(FILE,'<', $bb_base) or die ("problem to open the $bb_basefile.");
while ( my $bb = <FILE> ) {
  if ( $bb !~ /^#/ ){
        my ($workload, $tlse) = (split m/\;/, $bb);
        $mon_hash{$workload} = $tlse;
  }
}

Ah ben oui, c'est bcp plus compact comme ça!

j'étais parti sur ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        open(FILE,"<$bb_base") or die ("problem to open the bb file.");
        while ( $bb = <FILE> ) {
		if ($bb !~ /^#/){
                        $tlse = (split m/\;/, $bb)[0];
                        $workload = (split m/\;/, $bb)[1];
                        push(@tlse_init,$tlse);
                        push(@tlse_init,$workload);
		}
        }
 
        #Create the hash
        %init_bb = @tlse_init;