[小函数] awk 版快速排序

作者：dbcat   

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

qsort:

 

#! /usr/bin/awk


BEGIN {
FS="[ ]";
}



{
  arr[len++]=$0;
}



END{
    qsort(arr,0,len);
    printfile(arr,len+1);
    exit 0;
}




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[i];
            array[i]=array[j];
            array[j]=t;

            while(array[++i] < x );
            while(array[--j] > x );

        }
        qsort(array, p , j);
        qsort(array, j + 1 , r);
    }

}


function printfile(array,len,k)
{
     for(k=1;k       {
         print array[k];
       }
}

用法：

 

awk -f qsort datafile