- 论坛徽章:
- 145
|
本帖最后由 jason680 于 2015-10-30 14:23 编辑
回复 1# linlone
$ awk '{s="";while(match($0,/(\[BC[^]]+\])/,a)){s=s a[1]" ";$0=substr($0,RSTART+RLENGTH-2)}print s}' FILE
[BC0:time:5 5 0 memory num:2000-0-0] [BC2:2 vcc timeout]
[BC4:time:8 5 0 memory num:2000-0-0] [BC5:2 vcc timeout] [BC9:2 vcc timeout]
[BC2:time:2 5 0 memory num:1000-0-0] [BC3:2 vcc timeout]
$ perl -lane 'print join" ",m/\[BC.+?\]/g' FILE
[BC0:time:5 5 0 memory num:2000-0-0] [BC2:2 vcc timeout]
[BC4:time:8 5 0 memory num:2000-0-0] [BC5:2 vcc timeout] [BC9:2 vcc timeout]
[BC2:time:2 5 0 memory num:1000-0-0] [BC3:2 vcc timeout]
|
|