Discussion :

[yzf-r]

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 :

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

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 :

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

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

Par avance merci

[djibril]

Code :

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

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;
  }
}

[yzf-r]

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

j'étais parti sur ça:

Code :

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

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;