/^Zyklus : / { file = FILENAME; next } /^Nummer : / { nr = $3; next; } /^Autor : / { autor = $3; for (i = 4; i <= NF; i ++) { autor = autor " " $i; } if (!first[autor] || nr < first[autor]) { first[autor] = nr; } if (nr > last[autor]) { last[autor] = nr; } num[autor]++; heftaut[nr] = autor; heftfile[nr] = file; next; } END { print "" print "" print "" print "hjp: perry rhodan: zusammenfassungen: autoren" print "" print "" print " " print "
" print "

Autoren

" sortcmd = "sort +1 -o aut.sorted"; for (i in first) { print i | sortcmd; numaut++ } close(sortcmd); for (n = 0; n < numaut; n++) { getline i < "aut.sorted"; a = i; gsub(/ /, "_", a); print "
" i ""; printf "
%d Roman%s zwischen %d und %d (%d%%)\n", num[i], (num[i] > 1 ? "e" : ""), first[i], last[i], (num[i] * 100 / (last[i] - first[i] + 1)) + 0.5; print "
" for (j = first[i]; j <= last[i]; j++) { if (heftaut[j] == i) { printf "%d\n", heftfile[j], j, j; } } } print "
" print "
" print "
" }