Expression régulière perl

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:

---

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:

---

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:

---

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:

---

1 2 3 4 5

Nep3-RA CG9570-RA Or19b-RA AnnX-RA AnxB10-RA

---

Une idée ?

split me semble mieux indiqué non ?

Code:

---

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

---

Oui super !
Merci !

Utiliser split est une bien meilleure solution.

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

Code:

---

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:

---

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

---

soit utiliser un quantificateur non gourmand:

Code:

---

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

---