Re: jonction de lignes

Pàgina inicial

Reply to this message
Autor: Patrice KARATCHENTZEFF
Data:  
CC: liste Guilde
Assumpte: Re: jonction de lignes
Michel Karatchentzeff wrote:
> Bonjour à tous,
>
> Est-il possible avec sed (éventuellement awk) de joindre une ligne sur
> deux d'un fichier ?
> Par exemple, partant du fichier contenant les lignes
> A
> B
> C
> D
> E
> F
> je souhaite obtenir le fichier
> A B
> C D
> E F
> J'ai bien une idée avec awk entestant la parité des lignes, mais cela me
> paraît très lourd.


Pourquoi lourd ? Une solution jointe avec Perl (en détaillant... il doit
être possible de faire une one-line-perl avec je pense...) qui fait cela
en 30 secondes :

#!/usr/bin/perl -w
#

use strict;

my $file = $ARGV[0]; # nom du fichier
my $incr = "1";

open (FILE, $file)
   or die "can't open $file: $!\n";
while (<FILE>)
   {
     if ( $incr % 2 == "0") {
       print $_;
     }
     else {
       chomp($_); print $_;
     };
     ++$incr;
   }
close(FILE);


à utiliser en faisant ./nom.du.fichier.perl fichier et la sortie est sur
la sortie standard.

PK

-- 
Patrice KARATCHENTZEFF
STMicroelectronics           Tel:  04-76-92-67-96
850, rue Jean Monnet
38926 CROLLES Cedex,  Courriel: patrice.karatchentzeff-alplog@???