谁能帮我处理如下的文件？(以文件的某一行排序后重组)谢谢了!!

skycity0210

for i in ` cat c ` ; do

awk ' BEGIN { FS="[n=]" ; RS=""} {  a[$19]=$0 } END { print a["'$i'"] } ' a

done
好像只是对/DRILL_SIZE/那行进行了排序

mocou

1. cat file|xargs -n13|sed 's/NUM=/& /'|sort -k4n|sed 's/NUM= /NUM=/'|xargs -n1

复制代码

1. cat file|xargs -n13|sed 's/DRILL_SIZE=/& /'|sort -k12n|sed 's/DRILL_SIZE= /DRILL_SIZE=/'|awk '{A++;gsub(/NUM=[0-9]+/,"NUM="A"",$3);print}'|xargs -n1

复制代码

skycity0210

版主厉害，能否介绍一思路？是不是先将文件每13行转成1行后排序，再重组？
能否解释下awk的那段，不太理解，谢谢了!

mocou

原帖由 skycity0210 于 2005-11-17 00:09 发表
版主厉害，能否介绍一思路？是不是先将文件每13行转成1行后排序，再重组？
能否解释下awk的那段，不太理解，谢谢了!

是的，其实你分段执行一下就知道思路了
awk这段的意思就是用1-5分别替换每一行的NUM值

skycity0210

谢谢版主了，不过如果是处理比较大的文件，比如有100多行的话，速度可能有点慢了。^_^

寂寞烈火

1. 
   
2. /home/lee#n=1;for i in $(grep -o '[0-9][0-9].[0-9]*' file.txt|sort -n);do
   
3. > awk 'BEGIN{RS=ORS=""}/'"$i"'/{sub(/NUM=[0-9]/,"NUM='"$n"'");print $0,"\n\n"}' file.txt
   
4. > ((n++));done

复制代码

TOOLS {
    NUM=1
    SHAPE=HOLE
    TYPE=PLATED
    TYPE2=STANDARD
    MIN_TOL=3.15
    MAX_TOL=3.15
    BIT=
    FINISH_SIZE=12
    DRILL_SIZE=17.71653543307087
    SLOT_LENGTH=0
}

TOOLS {
    NUM=2
    SHAPE=HOLE
    TYPE=PLATED
    TYPE2=STANDARD
    MIN_TOL=3.15
    MAX_TOL=3.15
    BIT=
    FINISH_SIZE=22
    DRILL_SIZE=27.55905511811024
    SLOT_LENGTH=0
}

TOOLS {
    NUM=3
    SHAPE=HOLE
    TYPE=PLATED
    TYPE2=STANDARD
    MIN_TOL=3.15
    MAX_TOL=3.15
    BIT=
    FINISH_SIZE=28
    DRILL_SIZE=33.46456692913386
    SLOT_LENGTH=0
}

TOOLS {
    NUM=4
    SHAPE=HOLE
    TYPE=NON_PLATED
    TYPE2=STANDARD
    MIN_TOL=3.15
    MAX_TOL=3.15
    BIT=
    FINISH_SIZE=35
    DRILL_SIZE=41.33858267716536
    SLOT_LENGTH=0
}

TOOLS {
    NUM=5
    SHAPE=HOLE
    TYPE=PLATED
    TYPE2=STANDARD
    MIN_TOL=3.15
    MAX_TOL=3.15
    BIT=
    FINISH_SIZE=40
    DRILL_SIZE=45.2755905511811
    SLOT_LENGTH=0
}

BTW:论坛怎么还没解决斜线问题!!!

[ 本帖最后由 寂寞烈火 于 2005-11-18 03:05 编辑 ]

waker

awk可能不够
但gawk够了吧？

1. 
   
2. gawk 'BEGIN {FS="=";i=1}
   
3. {a[i]=a[i]"n"$0}
   
4. /DRILL_SIZE/{b[$2]=i}
   
5. /^ *$/{i++}
   
6. END {asorti(b,c)
   
7. for(j=1;j<=i;j++){
   
8. sub(/NUM=[0-9]*\n/,"NUM="j"\n",a[b[c[j]]])
   
9. print a[b[c[j]]]}
   
10. }'  file
    

复制代码

waker

感谢mocou版本的验证
上面那个要求 gnu awk version 3.1.2以上

下面这个要求3.1

1. gawk 'BEGIN {FS="=";i=0}
   
2. /SHAPE/,/SLOT/{a[i]=a[i]"\n"$0}
   
3. /DRILL_SIZE/{b[$2]=i;c[i]=$2}
   
4. /^TOOLS/{i++}
   
5. END {asort(c)
   
6. for(j=1;j<=i;j++){print "TOOLS {\n    NUM="j a[b[c[j]]]"\n}\n"}}' file
   

复制代码

[ 本帖最后由 waker 于 2005-11-18 10:32 编辑 ]

flw

我也写一个。

1. perl -e '$/="}\n\n";@l=<>;print map {s/NUM=\d/"NUM=".($i+++1)/me;$_} sort {($a=~/DRILL_SIZE=([\d\.]+)/m)[0]<=>($b=~/DRILL_SIZE=([\d.]+)/m)[0]} @l' file

复制代码

我把我的分析一下：（谁不分析自己写的，我 BS 他！）

1. perl -e '
   
2. $/ = "}\n\n";
   
3. @lines = <>;
   
4. print map {
   
5.                     s/NUM=\d/"NUM=".($i+++1)/me;
   
6.                     $_
   
7.         }sort{
   
8.                     ($a =~ /DRILL_SIZE=([\d\.]+)/m)[0]
   
9.                     <=>
   
10.                     ($b =~ /DRILL_SIZE=([\d\.]+)/m)[0]
    
11.         } @lines
    
12. ' file

复制代码

思路很简单。
先用 $/ 设定一个记录分隔符。（默认是以行分割，但是那样太难处理了。）
然后读取所有的记录到 @lines 里面。
紧接着就开始处理。
先按照 DRILL_SIZE 后面的数字排序，
然后把排序结果用 map 替换一下，把 NUM 后面的数字重填。

[ 本帖最后由 flw 于 2005-11-18 14:30 编辑 ]

flw

死 waker，你的 190 个字节，我的 160 个字节，我的比你的短哦～
赶紧给我加个小手

[ 本帖最后由 flw 于 2005-11-18 14:13 编辑 ]