Problème lecture de tableau

Bonjour,

Ca à l'air facile, mais je ne m'en sors pas avec la lecture ligne a ligne d'un tableau dans un fichier texte ... la je sèche .

J'ai un tableau a taille variable :

PRODUIT Type1 type2 type3 .... type n
S1 A B C N
S2 A B C N
S3 B B C N
W4 B B C N
...

Je voudrait lire ce tableau en récupérant pour chaque type (Type1,2,3..) le Produit(S1,S2,S3..) et la valeur correspondante(A,B,C,..).

Mais je ne sais pas comment nommer un tableau avec un nom variable (type1,type2,...), et ensuite aller lire les valeurs

Si j'ai par exemple $val ="Type1" # le texte "Type1" est lu par une expression réguliere

Je voudrais a chaque lecture de ligne du fichier texte, écrire S1,A, puis S2,A,... dans un tableau nommé @Liste$val,

push @Liste$val, ([valeur1,valeur2])

Mais je m'y perds ...
Merci,
francois

quand tu dis que ton tableau est à taille variable, ça veut dire quoi?
- que selon le fichier il n'y a pas le même nombre de colonne?
- que sur 1 ligne toutes les colonnes ne sont pas renseignées?

La 1ère chose à laquelle ton problème m'a fait pensé, c'est de traiter ton fichier comme une matrice:
my @matrice
pour chaque ligne my @ligne=split(...)
push @ligne dans @matrice

mais j'ai pas le temps d'y réflechir plus je repasse plus tard

Je pense qu'il te faut un hachage de tableaux:

Code:

1
2
3
 
my %liste;
$liste{$val} = [ qw / A B C N /];

Ou, si tu lis depuis un fichier:

Code:

1
2
3
4
5
6
7
 
my %liste;
while (my line = <$IN>) {
     chomp $line;
     my ($val, @reste) = split /\s+/, $line;
     $liste{val} = [ @reste ];
}

Allé, j'y vais aussi de mon grain de sel (mais en fait, il faudrait connaitre comment sera utilisé le tableau pour adapter au mieux sa forme) : j'ai souvent eu l'occasion de charger des tableaux de ce type (des csv souvent). Si le "Produit" possède un nom unique pour tout le tableau (une clé), alors le chargement dans un hashage de hashage pourra paraitre intéressant (sinon, un tableau de hashage, ou un tableau de tableau fera l'affaire, comme présenté par lolo par exemple).

Donc, pour un hashage de hashage, voici comment je procède habituellement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings;
 
my %produit;
my @colonnes = split /\s+/, <DATA>;
foreach my $ligne (<DATA>) {
  my ($produit, @produit_def) = split /\s+/, $ligne;
  $produit{$produit} = { map { $_ => shift @produit_def } @colonnes[1..$#colonnes] };
}
use Data::Dumper;
print Data::Dumper->Dump([\%produit], [qw(*produit)]);
 
__DATA__
PRODUIT Type1 type2 type3 typen
S1 A B C N
S2 A B C N
S3 B B C N
W4 B B C N

Ce qui donne :

Code:

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
$ perl 1.pl
%produit = (
             'S1' => {
                       'type2' => 'B',
                       'type3' => 'C',
                       'typen' => 'N',
                       'Type1' => 'A'
                     },
             'W4' => {
                       'type2' => 'B',
                       'type3' => 'C',
                       'typen' => 'N',
                       'Type1' => 'B'
                     },
             'S2' => {
                       'type2' => 'B',
                       'type3' => 'C',
                       'typen' => 'N',
                       'Type1' => 'A'
                     },
             'S3' => {
                       'type2' => 'B',
                       'type3' => 'C',
                       'typen' => 'N',
                       'Type1' => 'B'
                     }
           );

Il suffit d'utiliser $produit{<nom_produit>}->{<nom_type>} pour récupérer les informations de chaque produit.
Naturellement, si les noms de produits ne sont pas unique, il faudra remplacer le premier niveau de hashage par un tableau, et ajouter le nom du produit dans la liste des caractéristiques du produit (dans le hashage du 2e niveau, ou dans un tableau si l'on ne souhaite pas utiliser de hashage).

Salut,
Merci pour ces réponses .
Je vais utiliser la méthode de Philou67430 qui semble le mieux approprié , chaque produit étant unique je peut faire un hash de hash.

Merci encore !
Francois