Discussion :

[Isabella83]

Bonjour à tous,
j'ai un fichier tabulé avec un nombre de colonne qui est variable selon la ligne.
Mais, je cherche en fait à récupérer l'information contenue dans la premiere colonne, qui me servira par la suite de clé pour un hash, et stocker comme valeur pour cette clé, toutes les info contenues dans les colonnes suivantes.
Voici comme se compose mon fichier :

Code :

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

1
2
3
4
5
FBtr0070000	Nep3-RA	CG9565-RA
FBtr0070002	CG9570-RA	
FBtr0070003	Or19b-RA	CG32825-RA
FBtr0070025	AnnX-RA	CG9579-RA
FBtr0070025	AnxB10-RA	AnnX-RA CG9579-RA

Je veux un hash {clé}->{valeurs} comme ceci :

Code :

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

1
2
3
4
FBtr0070000 -> Nep3-RA,CG9565-RA
FBtr0070002 -> CG9570-RA
FBtr0070003 -> Or19b-RA,CG32825-RA 
FBtr0070025 -> AnnX-RA,CG9579-RA,AnxB10-RA

J'ai commencé en faisant comme ceci :

Code :

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

1
2
3
4
5
6
7
8
while(<$data>){
        chomp;
        if ($_ =~ /(.*)\t((.*[\t])+)/){
				my $cle = $1;
				my $valeur = $2;
				print "$valeur\n";
        }
}

Ca ne fonctionne pas ...
Ca me retourne seulement le premier élément après ma première colonne :

Code :

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

1
2
3
4
5
Nep3-RA	
CG9570-RA	
Or19b-RA	
AnnX-RA
AnxB10-RA

Une idée ?

[Gardyen]

split me semble mieux indiqué non ?

Code :

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

1
2
my ($id, @reste) = split /\t/;
print "$id donne : ",join(",",@reste),"\n";

[Isabella83]

Oui super !
Merci !

[Lolo78]

Utiliser split est une bien meilleure solution.

Mais pour info, ton expression régulière :

Code :

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

1
2
 
if ($_ =~ /(.*)\t((.*[\t])+)/){

ne fonctionne pas correctement très probablement à cause de '(.*)', une construction qu'il ne faut presque jamais utiliser car elle est dangereuse.

Il faut soit construire une classe de caractères comprenant tout sauf la tabulation:

Code :

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

1
2
 
([^]*)\t...

soit utiliser un quantificateur non gourmand:

Code :

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

1
2
 
(.*?)\t...