[小函数] awk 版快速排序

dbcat

写了个快速排序的脚本练练手,顺便熟悉一下awk中的递归函数的写法。
特点：能对字符串及数字进行排序：

qsort:

1. 
   
2. #! /usr/bin/awk
   
3. 
   
4. 
   
5. BEGIN {
   
6. FS="[ ]";
   
7. }
   
8. 
   
9. 
   
10. 
    
11. {
    
12.   arr[len++]=$0;
    
13. }
    
14. 
    
15. 
    
16. 
    
17. END{
    
18.     qsort(arr,0,len);
    
19.     printfile(arr,len+1);
    
20.     exit 0;
    
21. }
    
22. 
    
23. 
    
24. 
    
25. 
    
26. function qsort(array , p , r , t , i ,x)
    
27. {
    
28. 
    
29.     if (p < r) {
    
30.         x=array[p];
    
31.         i = p;
    
32.         j = r+1;
    
33.         while(array[--j] > x );
    
34.         while(i < j) {
    
35. 
    
36.             t = array[i];
    
37.             array[i]=array[j];
    
38.             array[j]=t;
    
39. 
    
40.             while(array[++i] < x );
    
41.             while(array[--j] > x );
    
42. 
    
43.         }
    
44.         qsort(array, p , j);
    
45.         qsort(array, j + 1 , r);
    
46.     }
    
47. 
    
48. }
    
49. 
    
50. 
    
51. function printfile(array,len,k)
    
52. {
    
53.      for(k=1;k<len;k++)
    
54.        {
    
55.          print array[k];
    
56.        }
    
57. }

复制代码

用法：

1. awk -f qsort datafile

复制代码

xlink

向dbcat学习，半年以后能读懂就好了。

寂寞烈火

向dbcat学习，N年以后能读懂就好了。

god_kiss

函数中：
function qsort(array , p , r , t , i ,x)
{

    if (p < r) {
        x=array[p];
        i = p;
        j = r+1;
        while(array[--j] > x );        while(i < j) {

            t = array;
            array=array[j];
            array[j]=t;

            while(array[++i] < x );
            while(array[--j] > x );
        }
        qsort(array, p , j);
        qsort(array, j + 1 , r);
    }

}

标记红色的部分是怎么退出循环的？
没有action啊？

waker

while(array[--j] > x );
当array[--j]<=x的时候不就退出了

god_kiss

……这个当然，但是怎么实现array[--j]<=x呢？当array[--j] > x 时，此while没有action，不就死在那了吗？

god_kiss

，我的错，现在明白了。谢谢waker

li.he

啥时候明白我就成仙了

creat7151

汗，天书一篇

hlm5097

学习！