串聯多條線路與鑑別

輸入：

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

的文件有100萬行，我希望能夠之前來連接，如示例行。

有關如何解決此問題的任何想法？

來源

2010-02-08 kal

你想連接成3個這樣的組，或者你想連接成1大行嗎？ – Pace 2010-02-08 03:54:45

@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

來源

2010-02-08 04:29:41 ghostdog74

正義的awk福。如果只有2行，那麼+1 – 2010-02-08 04:41:43

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 
}

來源

2010-02-08 04:01:54

如果Perl是很好，你可以試試：

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

運行：

perl perlfile.pl 1millionlinesfile.txt

來源

2010-02-08 04:07:20 codaddict

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

隨着paste，我們的線路連接在一起，然後sed切丁起來。該模式抓取3個管道終止字段的運行並用換行符替換它們各自的最終管道。

用Perl：

#! /usr/bin/perl -ln 

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

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

來源

2010-02-08 04:16:09

不說它會發生，但是，如果OP的數據包含「|」本身？那麼sed正則表達式會搞亂。 – ghostdog74 2010-02-08 04:43:55

由於您的代碼包含sed這裏有一個使用它的方法：

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

來源

2010-02-08 04:52:30

會出現問題嗎？ – 2010-02-08 05:07:37

我不確定我是否理解，但如果你的意思是你希望結果是每兩行（而不是三個）合併成一個，所以你得到「a，b，c | d，e，f」使用一個這樣的「N」：'sed'N; s/\ n/|/g'datafile' – 2010-02-08 05:41:10

@Dyno，如果OP想要連續每3行，並且他的文件中只有2行，沒有效果。（如果OP仍然想用「|」連接這兩行） – ghostdog74 2010-02-08 05:52:42

串聯多條線路與鑑別

回答

相關問題