объединения нескольких линий с дискриминатором

Question

У меня есть вход как этот

Вход:

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

я бледный, чтобы иметь возможность конкатенации строки с дискриминатором, как «|»

Выход:

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

Файл имеет 1Million линии, и я хочу, чтобы иметь возможность конкатенации строк, как в примере раньше.

Любые идеи о том, как подойти к этому?

Answer 1

@OP, если вы хотите, чтобы сгруппировать их на каждые 3 записей,

$ 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 

с 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

простак:

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

Если Perl отлично, вы можете попробовать:

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

бежать:

perl perlfile.pl 1millionlinesfile.txt 

Answer 4

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

С paste, соединим линии вместе , а затем sed кубики t верх выше. Образец захватывает три поля с завершенным контуром и заменяет их соответствующие конечные трубы новыми линиями.

С Perl:

#! /usr/bin/perl -ln 

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

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

Answer 5

Поскольку ваши метки включают sed вот способ его использования:

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