配對(duì)-格式調(diào)整

yinyuemi

最近壇里有些冷，任何方法都?xì)g迎，sed，awk，perl ……

輸入：

2       aaa
3       aaa
4       aaa
5       aaa
6       aaa
7       aaa
8       aaa
9       bbb
10      bbb
11      bbb
12      bbb
13      bbb
14      bbb
15      bbb
17      aaa
18      aaa
19      aaa
20      bbb
21      bbb
22      bbb
24      aaa
25      bbb
27      aaa
28      aaa
29      bbb
30      bbb

輸出：

2 aaa 9 bbb
3 aaa 10 bbb
4 aaa 11 bbb
5 aaa 12 bbb
6 aaa 13 bbb
7 aaa 14 bbb
8 aaa 15 bbb
17 aaa 20 bbb
18 aaa 21 bbb
19 aaa 22 bbb
24 aaa 25 bbb
27 aaa 29 bbb
28 aaa 30 bbb

最后我會(huì)對(duì)大家的code進(jìn)行測(cè)試，把執(zhí)行效率的測(cè)試結(jié)果貼出了～（見(jiàn)14樓）

jiejie455

1. awk '{if(a[$2]){a[$2]=a[$2]" "$1}else{a[$2]=$1}}END{split(a["aaa"],c," ");split(a["bbb"],d," ");for(i=1;i<=length(c);i++){print c[i]" aaa "d[i]" bbb"}}' data

復(fù)制代碼

arthurscfd

#!/bin/bash -
#-----------------------------------------------------------------------------
#          FILE: compose.sh
#         USAGE: ./compose.sh  txt
#
#        AUTHOR: moo (God helps those who help themselves)
#  ORGANIZATION:
#       CREATED: 2012-04-08 12:33:31 CST
#      REVISION: 1.0
#-----------------------------------------------------------------------------
cat <<-txthere > txt
2       aaa
3       aaa
4       aaa
5       aaa
6       aaa
7       aaa
8       aaa
9       bbb
10      bbb
11      bbb
12      bbb
13      bbb
14      bbb
15      bbb
17      aaa
18      aaa
19      aaa
20      bbb
21      bbb
22      bbb
24      aaa
25      bbb
27      aaa
28      aaa
29      bbb
30      bbb
txthere

list=(
    2 15
    17 22
    24 25
    27 30
)

fn_main ()
{


    for (( CNTR=0; CNTR<${#list[@]}; CNTR+=2 )); do
        head=${list[$CNTR]}
        tail=${list[(($CNTR+1))]}

        # echo $head $tail

        sec=` cat txt | sed -n -e  "/^${head}\>/,/^${tail}\>/ p"`
        line=`echo "$sec" | wc -l`
        # echo $line

        echo "$sec" | awk -v line=$line '{
            if (NR <= line/2) {
                txt[NR]=$0
            } else {
                print txt[NR-line/2], $0
            }
        }'
    done
}

fn_main txt


# 感覺(jué)不完美，拋磚

yinyuemi

回復(fù) 3# arthurscfd


    如果輸入的文本有很多行的話，list 數(shù)組缺少通用性

arthurscfd

回復(fù) 2# jiejie455


    很精辟，學(xué)習(xí)ing

jason680

回復(fù) 1# yinyuemi

$ perl -lane '{push(@a,"@F") if($F[-1] eq "aaa");print shift @a," @F" if($F[-1] eq "bbb")}' FILE
   

arthurscfd

回復(fù) 4# yinyuemi


    是的，最近寫(xiě)東西有點(diǎn)不動(dòng)大腦，看到問(wèn)題就只想快點(diǎn)弄出來(lái)

yinyuemi

回復(fù) 6# jason680


    8錯(cuò)！這個(gè)效率應(yīng)該很高～

mpstat

1. sed -rn ':a;N;/aaa$/ba;/bbb$/{s/^([^\n]+)(.*)\n([^\n]+)$/\1 \3\2/;P;D}'

復(fù)制代碼

winway1988

1. awk '/aaa/{a[++na]=$0;next}/bbb/{b[++nb]=$0}END{for(i=1;i<=na||i<=nb;i++)print a[i]?a[i]:"",b[i]?b[i]:""}'

復(fù)制代碼