[PERL] lire fichier en paragraphe

lire fichier en paragraphe [PERL] - Perl - Programmation

Marsh Posté le 26-04-2005 à 12:12:57    

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 ;)

Reply

Marsh Posté le 26-04-2005 à 12:12:57   

Reply

Marsh Posté le 26-04-2005 à 13:57:47    

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

Reply

Marsh Posté le 26-04-2005 à 14:07:05    

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 ;)

Reply

Marsh Posté le 26-04-2005 à 14:14:35    

alors c'est plutot simple:

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

Reply

Marsh Posté le 26-04-2005 à 14:32:57    

pospos a écrit :

alors c'est plutot simple:

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



 
 
j'avais contourné ca:

Code :
  1. $/="\n\n";
  2. $file = 'txt3';         # Nom du fichier
  3. open(INFO, $file);              # Ouvre le fichier
  4. @lines = <INFO>;                # Lit le fichier, et le met dans un tableau
  10. close(INFO);                    # Ferme le fichier
  12. 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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed