Discussion :

[wbulot]

Bonjour à tous,

Voila ce que je cherche à faire.

Imaginons un fichier texte basique dans ce style la :

Code :

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

1
2
3
4
5
6
7
8
fdlsflsjdlf jlksdj flk sjdlkfj kls d
sdkfjsd jlfks jdlkf s
 
dskfj l sdjlfk jsld flks
sdk fkjslkd jfklskd jfls
sdkfj ls jdlfsjdfls df
 
ddsjlkfjsdlkfjskdlfjls

Je cherche a parser ce fichier par ligne vide. C'est a dire me retrouver dans ce cas précis avec un tableau du style
$tableau[0] (les lignes 1 et 2)
$tableau[1] (les lignes 4 5 et 6)
$tableau[2] (la ligne 8)

Je cherche bien sur une solution fonctionnelle sur tout fichier (le mien fais en réalité 300 lignes).

Avez une idée sur comment procéder ?
Merci

[mamax29]

un truc du genre comme cela devrait fonctionner (j'ai pas testé)

le principe est d'avoir un tableau avec au depart une variable d'index (pour le tableau) egale à zéro.
puis on parcourt le fichier.
si on rencontre une ligne vide, on incrémente la variable d'index
sinon, on ajoute la ligne à l'entrée en cours dans le tableau

#!/usr/local/bin/perl

my @tab;
my $ind = 0;

open (MYFILE, 'data.txt');
while (<MYFILE>) {
if ( $_ =~ m/^\s+|\s+$/ )
{
$ind += 1;
}
else
{
$tab[$ind] = $tab[$ind].$_;
}
}
close (MYFILE);

A voir par conter pour l'initialisation de la variable $tab[$ind] lors de la concaténation.

[estofilo]

Tu peux faire tout simplement:

Code :

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

my @tableau = split /\n+/m, $contenu_fichier;