SED小问题,高手..

wh21667

awk -F, '{if($6==1) a($10)+=$5}END{for(name in a) print name,a[name]}' file

怎么用sed实现

爱知

源文件怎么没给
a($10)+=$5} 没见过

ly5066113

原帖由 wh21667 于 2008-8-13 17:31 发表
awk -F, '{if($6==1) a($10)+=$5}END{for(name in a) print name,a[name]}' file

怎么用sed实现

这题可不小，给你个sed实现加法的参考：
http://sed.sourceforge.net/grabbag/scripts/add_decs.sed

至于hash数组怎么实现，自己搞吧。

wh21667

#! /bin/sed -f

# This is an alternative approach to summing numbers,
# which works a digit at a time and hence has unlimited
# precision.  This time it is done with lookup tables,
# and uses only 10 commands.

G
s/\n/-/
s/$/-/
s/$/;9aaaaaaaaa98aaaaaaaa87aaaaaaa76aaaaaa65aaaaa54aaaa43aaa32aa21a100/

:loop
/^--[^a]/!{
  # Convert next digit from both terms into analog form
  # and put the two groups next to each other
  s/^\([0-9a]*\)\([0-9]\)-\([^-]*\)-\(.*;.*\2\(a*\)\2.*\)/\1-\3-\5\4/
  s/^\([^-]*\)-\([0-9a]*\)\([0-9]\)-\(.*;.*\3\(a*\)\3.*\)/\1-\2-\5\4/

  # Back to decimal, but keeping the carry in analog form
  # \2 matches an `a' if there are at least ten a's, else nothing
  #
  #    1-------------           3-    4----------------------
  #               2                               5----
  s/-\(aaaaaaaaa\(a\)\)\{0,1\}\(a*\)\([0-9b]*;.*\([0-9]\)\3\5\)/-\2\5\4/
  b loop
}
s/^--\([^;]*\);.*/\1/
h

刚学SED，怎么感觉这么难？

寂寞烈火

用sed实现算数运算？牛人呀~~~~~~~~~~~

ly5066113

原帖由 wh21667 于 2008-8-13 17:44 发表
#! /bin/sed -f

# This is an alternative approach to summing numbers,
# which works a digit at a time and hence has unlimited
# precision.  This time it is done with lookup tables,
# and use ...

刚学？怪不得说是sed小问题。
还是先看基础吧。

blackold

初生牛犊！

wh21667

晕，看来SED还不是很强大嘛。。

blackold

大象无形！

wh21667

原帖由 blackold 于 2008-8-13 18:10 发表
大象无形！

哈哈，笑死了