Programmation :perl

Fermé
pontarose Messages postés 150 Date d'inscription vendredi 10 août 2007 Statut Membre Dernière intervention 23 avril 2010 - 21 avril 2010 à 10:04
Bonjour,


Existe-t-il une façon de manière à lire plusieurs lignes en une seule chaîne.

Je m'explique j'ai un format du type
>parents
aaaaaaaaaaaaa
bbbbbbbbbbbbb
ccccccccccccc
dddddd



et j'aimerais traiter les 4 lignes en une seule fois pour les mettre dans un tableau. Mais voilà seule la dernière ligne est prise en compte!

la colonne 1 de mon tableau va contenir >parents
et la colonne 2 dddddd
alors que je voudrais que cette dernière contiennent les 4 lignes.


Voiçi mon scirpt:
open (TE, "< XXXXX") or die("Impossible de lire dans le fichier $!");
while( my $ligne=<TE>){
if($ligne =~ /^(>.+)$/){
$nb ++;
$tab[$nb][1] = $1;
}
elsif ($ligne =~ /(.+)$/){
$tab[$nb][2] = $1;
}
}
print("Nombre : $nb\n");
close (TE);

#verif
for (my $i = 1; $i <= $nb; $i ++){
print "$tab[$i][1]\t$tab[$i][2]\n";
}



Merci beaucoup!




A voir également: