免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2347 | 回复: 4
打印 上一主题 下一主题

nawk中自定义函数的应用(快速排序) [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2004-12-10 20:42 |只看该作者 |倒序浏览
找了一两周的自定义函数在nawk中的应用,上次在看sed和awk那本书时,明白了在BEGIN前面定义,今天又用自定义函数做了个快速排序,这样,我就可以在solaris 8上做中文排序,以前用sunfire 880要5~6分钟的工作,现在应当很快了,刚编出来,在工作站上实验通过就来了网吧,录入,有敲错的地方原谅。
function part(array,low,high){
pivot=array[low]
while(low<high){
        while(low<high && array[high]>=pivot) --high
        array[low]=array[high]
        while(low<high && array[low]<=pivot) ++low
        array[high]=array[low]
        }
        array[low]=pivot
        retun low
}
function Qsort(array,low,high){
        if(low<high){
        pivotloc=part(array,low,high)
        Qsort(array,low,pivotloc-1)
        Qsort(array,pivotloc+1,high)
        }
}
BEGIN{
        i=j=k=1
        FS=OFS='\t'
        low=high=1
}
{
        array[NR]=$0
        k=NR
}
END{
        high=k
        Qsort(array,1,k)
        for(i=1;i<=k;i++)
        print array
}

论坛徽章:
1
荣誉会员
日期:2011-11-23 16:44:17
2 [报告]
发表于 2004-12-10 21:18 |只看该作者

nawk中自定义函数的应用(快速排序)

弓虽!!!
awk确实很深奥~~

论坛徽章:
0
3 [报告]
发表于 2004-12-14 10:24 |只看该作者

nawk中自定义函数的应用(快速排序)

哇!太强大了

论坛徽章:
16
IT运维版块每日发帖之星
日期:2015-08-24 06:20:00综合交流区版块每日发帖之星
日期:2015-10-14 06:20:00IT运维版块每日发帖之星
日期:2015-10-25 06:20:00IT运维版块每日发帖之星
日期:2015-11-06 06:20:00IT运维版块每日发帖之星
日期:2015-12-10 06:20:00平安夜徽章
日期:2015-12-26 00:06:302016猴年福章徽章
日期:2016-02-18 15:30:34IT运维版块每日发帖之星
日期:2016-04-15 06:20:00IT运维版块每日发帖之星
日期:2016-05-21 06:20:00综合交流区版块每日发帖之星
日期:2016-08-16 06:20:002015七夕节徽章
日期:2015-08-21 11:06:17IT运维版块每日发帖之星
日期:2015-08-14 06:20:00
4 [报告]
发表于 2010-09-08 09:41 |只看该作者
qiang da

论坛徽章:
0
5 [报告]
发表于 2010-09-08 09:50 |只看该作者
仰慕前辈风范!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP