Concaténer plusieurs lignes avec un discriminateur

Question

J'ai l'entrée comme celui-ci

Entrée:

a,b,c 
d,e,f 
g,h,i 
k,l,m 
n,o,p 
q,r,s 

Je blême de pouvoir concaténer les lignes avec un discriminateur comme « | »

Sortie:

a,b,c|d,e,f|g,h,i 
k,l,m|n,o.p|q,r,s 

Le fichier a 1 million de lignes et je veux être en mesure de concaténer des lignes comme l'exemple avant.

Des idées sur la façon d'aborder cela?

Answer 1

@OP, si vous voulez les regrouper pour 3 dossiers,

$ awk 'ORS=(NR%3==0)?"\n":"|"' file 
a,b,c|d,e,f|g,h,i 
k,l,m|n,o,p|q,r,s 

avec Perl,

$ perl -lne 'print $_ if $\ = ($. % 3 == 0) ? "\n" : "|"' file 
a,b,c|d,e,f|g,h,i 
k,l,m|n,o,p|q,r,s 

Answer 2

gawk:

BEGIN { 
    state=0 
} 

state==0 { 
    line=$0 
    state=1 
    next 
} 

state==1 { 
    line=line "|" $0 
    state=2 
    next 
} 

state==2 { 
    print line "|" $0 
    state=0 
    next 
} 

Answer 3

Si Perl est bien, vous pouvez essayer:

$i = 1; 
while(<>) { 
     chomp; 
     unless($i % 3) 
     { print "$line\n"; $i = 1; $line = "";} 
     $line .= "$_|"; 
     $i++; 
} 

à exécuter:

perl perlfile.pl 1millionlinesfile.txt 

Answer 4

$ paste -sd'|' input | sed -re 's/([^|]+\|[^|]+\|[^|]+)\|/\1\n/g'

Avec paste, nous rejoignons les lignes ensemble , puis sed dés ourler. Le motif saisit 3 champs terminés et remplace les tubes finaux respectifs par des retours à la ligne.

Avec Perl:

#! /usr/bin/perl -ln 

push @a => $_; 
if (@a == 3) { 
    print join "|" => @a; 
    @a =(); 
} 

END { print join "|" => @a if @a } 

Answer 5

Étant donné que vos balises comprennent sed voici un moyen de l'utiliser:

sed 'N;N;s/\n/|/g' datafile