文本內(nèi)容處理

butterflyswim

文本
1.1.1.1 general/tcp GNU-Bash 1.0
2.2.2.2 general/tcp GNU-Bash 1.0
2.2.2.2 general/tcp HTTP-Brute 4.0
2.2.2.2 53/tcp VMSA-2015-0001:-VMware-vCenter-Server,-ESXi,-Workstation, 7.1
2.2.2.2 111/tcp VMSA-2015-0007:-VMware-ESXi-OpenSLP 3.0
3.3.3.3 general/tcp GNU-Bash-Environment 5.0
3.3.3.3 80/tcp HTTP-Brute-Force 2.0
......
......

目的
第一列ip相同的行，合并之后，用分號分隔

實(shí)現(xiàn)結(jié)果
1.1.1.1 general/tcp GNU-Bash 1.0
2.2.2.2 general/tcp GNU-Bash 1.0;general/tcp GNU-Bash;general/tcp HTTP-Brute 4.0;53/tcp VMSA-2015-0001:-VMware-vCenter-Server,-ESXi,-Workstation, 7.1;111/tcp VMSA-2015-0007:-VMware-ESXi-OpenSLP 3.0
3.3.3.3 general/tcp GNU-Bash-Environment 5.0;80/tcp HTTP-Brute-Force 2.0
......
......

moperyblue

1. awk '{k=$1;$1="";a[k]=a[k]?a[k]";"$0:$0}END{for(i in a)print i,a[i]}'

復(fù)制代碼

butterflyswim

回復(fù) 2# moperyblue

謝大神

moperyblue

1. sort file|sed -r ':a;N;/^((\S+\b).*)\n\2\s+/{s//\1;/;ta};P;D'

復(fù)制代碼

butterflyswim

回復(fù) 4# moperyblue

sed處理之后，沒有空格，很完美。awk處理之后有空格。速度哪個(gè)更快一點(diǎn)？

moperyblue

回復(fù) 5# butterflyswim

awk也可以去掉空格, 哪種快要你自己測才知道.

1. awk '{k=$1;$1="";sub(/\s+/,"",$0);a[k]=a[k]?a[k]";"$0:$0}END{for(i in a)print i,a[i]}'

復(fù)制代碼

sunzhiguolu

1. perl -0pe 's{^(\S+)\N+\K((?:\n?^\1\N+\n)+)}{$s=$1;$2=~s/\s*$s\s*/;/gr}gem' f

復(fù)制代碼

sunzhiguolu

1. perl -nle '{($k,$v)=split(" ",$_,2);push(@{$h{$k}},$v)}END{print "$_ ",join(";",@{$h{$_}}) for keys %h}' f

復(fù)制代碼

baby_神

1. awk '{b=$1;$1="\b";a[b]=a[b]?a[b]","$0:$0}END{for(i in a)print i,a[i]}' file

復(fù)制代碼

butterflyswim

回復(fù) 9# baby_神