Сортировка ассоциативного массива с AWK

вот мой массив (скрипт gawk):

myArray["peter"] = 32
myArray["bob"] = 5
myArray["john"] = 463
myArray["jack"] = 11

после сортировки, мне нужен следующий результат :

bob    5
jack   11
peter  32
john   463

когда я использую "asort", индексы потеряли. Как Сортировать по значению массива без потери индексов ? (Мне нужны упорядоченные индексы, основанные на их значениях)

(мне нужно получить этот результат только с awk/gawk, а не Shell script, perl и т. д.)

если мой пост недостаточно ясен, вот другой пост, объясняющий ту же проблему : http://www.experts-exchange.com/Programming/Languages/Scripting/Shell/Q_26626841.html)

спасибо заранее

обновление :

спасибо вам обоим, но мне нужно сортировать по значениям, а не индексам (я хочу упорядоченные индексы в соответствии с их значениями).

другими словами, Мне нужен этот результат:

bob    5
jack   11
peter  32
john   463

нет :

bob 5
jack 11
john 463
peter 32

(Я согласен, мой пример сбивает с толку, выбранные значения довольно плохо)

из кода Catcall я написал быструю реализацию, которая работает, но она довольно уродлива (я объединяю ключи и значения перед сортировкой и разделением во время сравнения). Вот как это выглядит :

function qsort(A, left, right,   i, last) {
  if (left >= right)
    return
  swap(A, left, left+int((right-left+1)*rand()))
  last = left
  for (i = left+1; i <= right; i++)
    if (getPart(A[i], "value") < getPart(A[left], "value"))
      swap(A, ++last, i)
  swap(A, left, last)
  qsort(A, left, last-1)
  qsort(A, last+1, right)
}

function swap(A, i, j,   t) {
  t = A[i]; A[i] = A[j]; A[j] = t
}

function getPart(str, part) {
  if (part == "key")
    return substr(str, 1, index(str, "#")-1)
  if (part == "value")
    return substr(str, index(str, "#")+1, length(str))+0
  return
}

BEGIN {  }
      {  }
END {

  myArray["peter"] = 32
  myArray["bob"] = 5
  myArray["john"] = 463
  myArray["jack"] = 11

  for (key in myArray)
    sortvalues[j++] = key "#" myArray[key]

  qsort(sortvalues, 0, length(myArray));

  for (i = 1; i <= length(myArray); i++)
    print getPart(sortvalues[i], "key"), getPart(sortvalues[i], "value")
}

конечно мне интересно, если у вас есть что-то более чистым...

Спасибо за ваше время

12
asort awk gawk

5 ответов

Edit:

сортировка по значениям

о! Сортировать значения, это немного kludge, но вы можете создать временный массив, используя конкатенацию значений и индексов исходного массива в качестве индексов в новом массиве. Тогда вы можете asorti() временный массив и разделить объединенные значения обратно в индексы и значения. Если вы не можете следовать этому запутанному описанию, код намного проще понимать. Он также очень короткий.

# right justify the integers into space-padded strings and cat the index
# to create the new index
for (i in myArray) tmpidx[sprintf("%12s", myArray[i]),i] = i
num = asorti(tmpidx)
j = 0
for (i=1; i<=num; i++) {
    split(tmpidx[i], tmp, SUBSEP)
    indices[++j] = tmp[2]  # tmp[2] is the name
}
for (i=1; i<=num; i++) print indices[i], myArray[indices[i]]

Edit 2:

если у вас есть GAWK 4, Вы можете пересечь массив по порядку значений без выполнения явной сортировки:

#!/usr/bin/awk -f
BEGIN {
    myArray["peter"] = 32
    myArray["bob"] = 5
    myArray["john"] = 463
    myArray["jack"] = 11

    PROCINFO["sorted_in"] = "@val_num_asc"

    for (i in myArray) {
        {print i, myArray[i]}}
    }

 }

есть настройки для обхода по индексу или значению, по возрастанию или убыванию и другим параметрам. Можно также указать пользовательскую функцию.

предыдущий ответ:

сортировка по индексам

если у вас есть AWK, например gawk 3.1.2 или выше, который поддерживает asorti():

#!/usr/bin/awk -f
BEGIN {
    myArray["peter"] = 32
    myArray["bob"] = 5
    myArray["john"] = 463
    myArray["jack"] = 11

    num = asorti(myArray, indices)
    for (i=1; i<=num; i++) print indices[i], myArray[indices[i]]
}

если у вас нет asorti():

#!/usr/bin/awk -f
BEGIN {
    myArray["peter"] = 32
    myArray["bob"] = 5
    myArray["john"] = 463
    myArray["jack"] = 11

    for (i in myArray) indices[++j] = i
    num = asort(indices)
    for (i=1; i<=num; i++) print i, indices[i], myArray[indices[i]]
}
22

используйте команду сортировки Unix с каналом, держите код Awk простым и следуйте философии Unix
Создайте входной файл со значениями, разделенными запятыми
Петр,32
Джек,11
Джон,463
Боб,5

создать своего рода.awk файл с кодом

BEGIN { FS=","; }
{
    myArray[]=;
}
END {
    for (name in myArray)
        printf ("%s,%d\n", name, myArray[name]) | "sort -t, -k2 -n"
}

запустить программу, должен дать вам выход
$ на awk -е вроде.awk data
Боб,5
Джек,11
Петр,32
Джон,463

5
PROCINFO["sorted_in"] = "@val_num_desc";

перед итерацией массива используйте приведенную выше инструкцию. Но, он работает в awk версии 4.0.1. Он не работает в awk версии 3.1.7.

Я не уверен, в какой промежуточной версии он был введен.

3

и простой ответ...

function sort_by_myArray(i1, v1, i2, v2) {
    return myArray[i2] < myArray[i1];
}

BEGIN {
    myArray["peter"] = 32;
    myArray["bob"] = 5;
    myArray["john"] = 463;
    myArray["jack"] = 11;
    len = length(myArray);

    asorti(myArray, k, "sort_by_myArray");

    # Print result.
    for(n = 1; n <= len; ++n) {
            print k[n], myArray[k[n]]
    }
}
1

авторы Язык Программирования Awk обеспечить функция quicksort, который доступен в интернете.

Я думаю, вы бы сделали что-то подобное.

END {
  for (key in myArray) {
    sortkeys[j++] = key;
  }
  qsort(sortkeys, 0, length(myArray));      # Not sure I got the args right.
  for (i = 1; i <= length(myArray); i++) {
    print sortkeys[i], myArray[sortkeys[i]];
  }
}
0