Perl

[PERL] lire fichier en paragraphe

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] lire fichier en paragraphe

hornetmen

GaZZzz... Et Flash....22

Voila un fichier du type:

MENU
cat1
cat2
cat3
ligne blanche
DEB_SSMENU
ss1
ss2
ss3
ligne blanche
COMM
COM1
com2
com3

Je voudrais ouvrir ce fichier, et le traiter en trois paragraphe ...
Merci de votre aide, j'ai bien essayer le ~m, mais je n'arrive pas à obtenir ce que je souhaite.
Merci d'avance

Publicité

pospos

tu peux le charger entierement en memoire ou il est trop gros?

hornetmen

GaZZzz... Et Flash....22

pospos a écrit :

tu peux le charger entierement en memoire ou il est trop gros?

Je peux le charger en mémoire sans problème

pospos

alors c'est plutot simple:

Code :

open(IN, '<', $file) or die;
my $content = do{local $/; <IN>};
close(IN);
my @paragraphes = split(/\r?\n\r?\n/, $content);

hornetmen

GaZZzz... Et Flash....22

pospos a écrit :

alors c'est plutot simple:

Code :

open(IN, '<', $file) or die;
my $content = do{local $/; <IN>};
close(IN);
my @paragraphes = split(/\r?\n\r?\n/, $content);

j'avais contourné ca:

Code :

$/="\n\n";
$file = 'txt3'; # Nom du fichier
open(INFO, $file); # Ouvre le fichier
@lines = <INFO>; # Lit le fichier, et le met dans un tableau
close(INFO); # Ferme le fichier
for $i (@lines) {++$nb;chomp($i);print "PARAGRAPH_$nb = $i\n";print "-" x 50;print "\n"; }

Message édité par hornetmen le 26-04-2005 à 14:33:30

FORUM HardWare.fr

Programmation

Perl

[PERL] lire fichier en paragraphe

Sujets relatifs
Erreur de lecture fichier SQL [résolu]	Generation vba dans fichier Excel a partir d'un programme VB
Lecture d'un fichier MSG (Outlook)	certificats SSL + [ Coldfusion ou Perl ]
quel encodage iso pour lire un .RTF en VB.net ?	upload fichier [RESOLU]
transformation d'un fichier xls en poscript avec dll excel	Editeur de fichier préseclectionné
Erreur "Impossible de verrouiller le fichier"	[Perl] Question toute bête?
Plus de sujets relatifs à : [PERL] lire fichier en paragraphe

Page générée en 0.067 secondes