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
