求用awk进行一个字段排序的排序方法，要求简单。

zswlb9999 · 发表于 2008-5-11 00:58:13

求用awk进行一个字段（数字，文件大小）排序的排序方法，要求简单。

ly5066113 · 发表于 2008-5-14 11:13:03

http://bbs.chinaunix.net/viewthr ... C%CB%D9%C5%C5%D0%F2

Xorcerer · 发表于 2008-5-17 00:02:38

ly引用的那个页面的程序有几个地方看不懂。

#! /usr/bin/awk
BEGIN {
FS="[ ]";
}
[color=red]{
arr[len++]=$0;
}
[/color]
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;
[color=red] while(array[--j] > x );[/color]
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<len;k++)
{
print array[k];
}
}

复制代码

zswlb9999 · 发表于 2008-6-2 08:32:45

Post by Xorcerer;1850635
ly引用的那个页面的程序有几个地方看不懂。
#! /usr/bin/awk
BEGIN {
FS="[ ]";
}
[color=red]{
  arr[len++]=$0;
}
[/color]
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;
[color=red]       while(array[--j] > x );[/color]
      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<len;k++)
   {
      print array[k];
   }
}
复制代码

楼上所说，更没有人看得懂。
谢过ly.

		自动登录	找回密码
密码			注册

求用awk进行一个字段排序的排序方法，要求简单。

浏览过的版块