Perl

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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] regrouper des lignes différentes en une seule ttes les n lignes

perchut2

Hell, it's about time...

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 ?

Publicité

pospos

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

perchut2

Hell, it's about time...

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:

anapajari

s/travail/glanding on hfr/gs;

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;

drigaudiere

Perl or die;

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

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

pospos

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

drigaudiere

Perl or die;

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

FORUM HardWare.fr

Programmation

Perl

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

Sujets relatifs
[Perl] Package Cvs 0.06	Probleme d'execution de la commande Unix echo via le perl
[SQL][résolu] 2 colonnes en 1 seule	perl Makefile.PL
Limiter le nombre de lignes comptées par COUNT(*) [maj : ça marche !]	Comptage de lignes de code C ou Java sous Windows
Programme en C qui affiche n lignes demandés	[Eclipse] Plusieurs lignes de tabs dans l'IDE ?
[Perl] probleme avec sub - subroutine [résolu -> howto inside]	[Perl] parcourir un fichier à partir d'une certaine ligne
Plus de sujets relatifs à : [Perl] regrouper des lignes différentes en une seule ttes les n lignes

Page générée en 0.054 secondes