Discussion :

[lorlando]

Bonjour
Je souhaite parcourir un très gros tableau de données chiffrées (>10000 lignes), pour lequel chaque colonne présente une entête descriptive (classée par ordre alphanumérique). La structure hashage de tableau semble toute indiquée mais le problème est que je n'arrive pas à déréférencer correctement pour contrôler les valeurs renseignées. Merci de votre aide! Voici ci-dessous comment je procède:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my @table; my %hash; my $i = 0;
while (my $line == <FILE>)
     {
     $i++;
     @table = split(/\t/,$line); ### séparateur = tab
     if ($i==1)
     {foreach (@table)  {$hash{$_} = []);}}
     else {foreach (keys(%hash))  {${$hash{$_}->[$i] = shift(@table);}    
     }
foreach my $key (keys(%hash))
     {foreach my $i (0..$#table)
          {print "${$hash{$key}}->[$i]\t";}}

mes données ressemblent à ça au départ:
colA colB colC
1 1 0
15 2 0
etc

MERCI!

[djibril]

Ce serait bien de mettre du code parfaitement indenté la prochaine fois.
merci.

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
my @table;
my %hash;
my $i = 0;
while ( my $line == <FILE> ) {
    $i++;
    @table = split( /\t/, $line );    ### séparateur = tab
    if ( $i == 1 ) {
        foreach (@table) {
            $hash{$_} = [] ); # <============ ?????
        }
    }
    else {
            foreach ( keys(%hash) ) {
                ${ $hash{$_}->[$i] = shift(@table); }; # <============ ?????
            }
            foreach my $key ( keys(%hash) ) {
                foreach my $i ( 0 .. $#table ) {
                    print "${$hash{$key}}->[$i]\t"; # <============ ?????
                }
            }
    }
}