[Perl] regrouper des lignes différentes en une seule ttes les n lignes

Marsh Posté le 30-03-2004 à 17:34:51

Bonjour :hello:

Voilà, j'essaie de faire sous perl le truc suivant :

j'ai un fichier qui se présente comme ca :

ligne1
ligne2
ligne3
ligne4
ligne5
ligne6
ligne7
ligne8
ligne9
ligne10
ligne 11

et je voudrais le transformer en ca :

ligne1,ligne2,ligne3,ligne4,....,ligne9
ligne10,ligne11...,ligne 18
etc...

c'est à dire :
virer les premières lignes vides (y peut y en avoir d'autres dont j'ai besoin), et regrouper les lignes en champs, toutes les 9 lignes...

quelqu'un saurait comment faire ca ?

Reply

Marsh Posté le 30-03-2004 à 17:34:51

Reply

Marsh Posté le 30-03-2004 à 18:33:29

oui c'est pas trop dur à faire en Perl

un truc genre :

Code :

use strict;
open(IN, '<', shift) || die "usage: $0 fichier\n";
my $i = 1;
# on saute les lignes vides
while(<IN> ) {
unless (/^\s*$/) {
# on ecrit la premiere ligne...
s/\n/, /;
print;
# ... et on sort
last;
}
}
# on ecrit les lignes suivante,
# avec un saut de lignes toutes les 9 lignes
while(<IN> ) {
s/\n/, / if ++$i % 9;
print;
}
close IN;

Message édité par pospos le 30-03-2004 à 18:38:32

Reply

Marsh Posté le 30-03-2004 à 20:44:20

pospos a écrit :

oui c'est pas trop dur à faire en Perl

un truc genre :

Code :

use strict;
open(IN, '<', shift) || die "usage: $0 fichier\n";
my $i = 1;
# on saute les lignes vides
while(<IN> ) {
unless (/^\s*$/) {
# on ecrit la premiere ligne...
s/\n/, /;
print;
# ... et on sort
last;
}
}
# on ecrit les lignes suivante,
# avec un saut de lignes toutes les 9 lignes
while(<IN> ) {
s/\n/, / if ++$i % 9;
print;
}
close IN;

merci beaucoup, j'étudie ca apres le java :jap: :hello:

Reply

Marsh Posté le 30-03-2004 à 22:23:44

tiens sinon tu peux essayer ça ( mais c'est pas super si ton fichier est énorme)

Code :

open(IN, 'tonfichier.txt');
my @lines = <IN>;
my $text = join '', @lines;
$text =~ s/(( |)\n)+/,/gs;
$text =~ s/^,//;
$text =~ s/,$//;
$text =~ s/((([^,]*),){8})/$1\n/gs;
print $text."\n";
close IN;

Reply

Marsh Posté le 01-04-2004 à 14:31:42

Perchut2 a écrit :

Bonjour :hello:

c'est à dire :
virer les premières lignes vides (y peut y en avoir d'autres dont j'ai besoin), et regrouper les lignes en champs, toutes les 9 lignes...

quelqu'un saurait comment faire ca ?

Je propose ceci :

Code :

#!/usr/bin/perl -w
use strict;
my $datafile = 'tst_hfr_1'; # fichier de donnees
my $max_buff_lines = 9; # nb lignes a concatener
my $joint_str = ', '; # chaine de jointure pour concatener les lignes
my @buffer;
my $in_data;
open FH, "<$datafile" or die "Unable to open $datafile : $!";
while(<FH> ) {
# ignore une ligne vide (ou avec des blancs)
# si on a pas encore rencontré de donnée
next if not $in_data and m/^\s*$/;
# une ligne non vide, on flag
$in_data = 1;
chomp;
push @buffer, $_;
# on vide le buffer si il est plein
flush_buffer() if @buffer == $max_buff_lines;
}
# vide le buffer
flush_buffer();
sub flush_buffer {
print join($joint_str, @buffer);
print "\n";
@buffer = ();
}
close FH;
__END__

--
David "Sniper" Rigaudiere
Les mongueurs de Perl - http://www.mongueurs.net
Les Journées Perl 2004 - http://conferences.mongueurs.net/2004

Message édité par drigaudiere le 01-04-2004 à 14:40:32

---------------

Reply

Marsh Posté le 01-04-2004 à 15:02:56

tiens un mongueur!
je vois parfois ton nom sur la liste ppm (je la survole, mais je n'y participe pas)

Reply

Marsh Posté le 01-04-2004 à 15:36:33

pospos a écrit :

tiens un mongueur!
je vois parfois ton nom sur la liste ppm (je la survole, mais je n'y participe pas)

La non participation se pardonne, ne pas venir boire un coup avec
nous aux réunions mensuelles si t'es sur Paris c'est innadmissible

--
David "Sniper" Rigaudiere
Les mongueurs de Perl - http://www.mongueurs.net
Les journées Perl 2004 - http://conferences.mongueurs.net/2004

Reply

[Perl] regrouper des lignes différentes en une seule ttes les n lignes

Sujets relatifs:

Leave a Replay