Re: jonction de lignes

トップ ページ

このメッセージに返信
著者: serge rouveyrol
日付:  
To: Patrice KARATCHENTZEFF
CC: liste Guilde
題目: Re: jonction de lignes
Patrice KARATCHENTZEFF wrote:

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

perl -ne 'chomp; $l1=$_; $l2=<STDIN>; print "$l1 $l2"' </tmp/fic