配对-格式调整

yinyuemi

最近坛里有些冷，任何方法都欢迎，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

最后我会对大家的code进行测试，把执行效率的测试结果贴出了～（见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

复制代码

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


# 感觉不完美，抛砖

yinyuemi

回复 3# arthurscfd


    如果输入的文本有很多行的话，list 数组缺少通用性

arthurscfd

回复 2# jiejie455


    很精辟，学习ing

jason680

回复 1# yinyuemi

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

arthurscfd

回复 4# yinyuemi


    是的，最近写东西有点不动大脑，看到问题就只想快点弄出来

yinyuemi

回复 6# jason680


    8错！这个效率应该很高～

mpstat

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

复制代码

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]:""}'

复制代码