[小函數(shù)] awk 版快速排序

dbcat

寫了個(gè)快速排序的腳本練練手,順便熟悉一下awk中的遞歸函數(shù)的寫法。
特點(diǎn)：能對(duì)字符串及數(shù)字進(jìn)行排序：

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. }

復(fù)制代碼

用法：

1. awk -f qsort datafile

復(fù)制代碼

xlink

向dbcat學(xué)習(xí)，半年以后能讀懂就好了。

寂寞烈火

向dbcat學(xué)習(xí)，N年以后能讀懂就好了。

god_kiss

函數(shù)中：
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);
    }

}

標(biāo)記紅色的部分是怎么退出循環(huán)的？
沒(méi)有action�。�

waker

while(array[--j] > x );
當(dāng)array[--j]<=x的時(shí)候不就退出了

god_kiss

……這個(gè)當(dāng)然，但是怎么實(shí)現(xiàn)array[--j]<=x呢？當(dāng)array[--j] > x 時(shí)，此while沒(méi)有action，不就死在那了嗎？

god_kiss

，我的錯(cuò)，現(xiàn)在明白了。謝謝waker

li.he

啥時(shí)候明白我就成仙了

creat7151

汗，天書一篇

hlm5097

學(xué)習(xí)！