Кто сможет помочь с awk работа с файлами?

Question

[tsovak]

имеется 10 столбцов по 10 строк. в каждом столбце по 1 слову.
используя awk поменять местами половинки слов по диагонали a[i][i],
то есть есть слово WORD, получаем RDWO. длина слово может быть фиксированной. результат можно вывести или записать в файл.
я не могу ни поменять половинки слов, ни пройтись по диагонали для смени половинки. может что то посоветуете?
P.S. не нужно писать "загугли", т.к. я множество сайтов и мануалов прочел и не нашел нужную мне информацию

Answer 1

[jcmvbkbc]

Что сложного-то?

#! /bin/awk -f

function reverse_halves(a)
{
        n = length(a);
        n2 = int(n / 2);

        return substr(a, n2 + 1, n - n2) substr(a, 1, n2);
}

BEGIN { i = 1; }
{
        for (j = 1; j <= NF; ++j)
                printf("%s ", i == j ? reverse_halves($j) : $j);
        printf("\n");
        ++i;
}

Comments

[tsovak]

спасибо!

[jcmvbkbc]

tsovak: для этого есть кнопка "отметить как решение".

Answer 2

[Кирилл Васильев]

Скинь пример строки на входе и пример строки на выходе

Comments

[tsovak]

qwer tyui asdf ghjk zxcv
qwer tyui asdf ghjk zxcv
qwer tyui asdf ghjk zxcv
qwer tyui asdf ghjk zxcv

выход
erqw tyui asdf ghjk zxcv
qwer uity asdf ghjk zxcv
qwer tyui dfas ghjk zxcv
qwer tyui asdf jkgh zxcv