/
niceSOFT
/
gawk
Обзор
Документация
Войти
/
niceSOFT
/
gawk
Код
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
test/sortglos.awk
50 строк
964 B
Arnold D. Robbins
Fix permissions on some of the files in test.
06 мар 2015, 12:41
06 мар 2015, 12:41
4e3f36b
Код
Авторство
О чём код?
BEGIN { pr="y"; npre=0; po="n"; npos=0; } pr=="y" { npre++; pre[npre]=$0; } $1=="@table" && $2=="@asis" { pr="n";nite++; next; } po=="y" { npos++; pos[npos]=$0; } $1=="@end" && $2=="table" { po="y"; npos++; pos[npos]=$0; # last item... vec[nite]=nlin; } { nite++; } END { for ( i=1; i<=npre; i++ ) { print pre[i]; } if ( srt=="y" ) { n=asorti(entr,ital); ##print "n=",n; for ( i=1; i<=n; i++ ) { #printf("=========> %3.3d %s\n",i,ital[i]); # ital[i] is the sorted key; j=entr[ital[i]]; # j is the original item number for ( k=1; k<=vec[j]; k++ ) { print dat[j,k]; } } } if ( srt=="n" ) { for ( i=1; i<=nite; i++ ) { printf("=========> %3.3d %2.2d %s\n",i,vec[i],titl[i]); for ( j=1; j<=vec[i]; j++ ) { print dat[i,j]; } } print "========================= END"; } for ( i=1; i<=npos; i++ ) { print pos[i]; } print "@c npre=" npre; print "@c nite=" nite; print "@c npos=" npos; }