☰

Как изменить первые строки в формате столбцов следующих строк, заменив * на число и выполнив операции между столбцами?

tag-icon • tag-icon shell-script awk sed
Как изменить первые строки в формате столбцов следующих строк, заменив * на число и выполнив операции между столбцами?

У меня есть следующий файл, в котором первые две строки представлены как один столбец (т. е. непрерывная строка). Я хотел бы разделить их на столбцы и заменить символ "*" на число "x", задав научную нотацию и формат столбца как четвертую и пятую строки.

0.001000000*********************************************
0.061059059-3524.927327218-3524.938421865***************
0.121118118 -887.564833130 -887.569649256-6250.350946527
0.181177177 -387.169559377 -387.173137963-2743.981985633
0.241236236 -223.812193853 -223.815321341-1504.799155086
0.301295295 -134.073058536 -134.075910507 -924.916305653
0.361354354  -76.668692929  -76.671412688 -612.480371134

Обратите внимание, что строки 1, 2 и 3 имеют ту же проблему с наличием 2 последовательных столбцов, как если бы был один столбец (я хотел бы поставить пробел между ними). ​​Я также хотел бы выполнить сложную операцию, такую ​​как sqrt((sqrt($2 ^ 2 + $4 ^ 2) + $2) / 2) между столбцами.

Ожидаемые результаты:

0.001000000 -3524.927327218 -3524.938421865 -6250.350946527
0.061059059 -3524.927327218 -3524.938421865 -6250.350946527
0.121118118  -887.564833130  -887.569649256 -6250.350946527
0.181177177  -387.169559377  -387.173137963 -2743.981985633
0.241236236  -223.812193853  -223.815321341 -1504.799155086
0.301295295  -134.073058536  -134.075910507  -924.916305653
0.361354354   -76.668692929   -76.671412688  -612.480371134

Я хотел бы узнать, есть ли решение моей проблемы.

решение1

Мне кажется, у вас две совершенно разные проблемы:

  • Незаполненные строки, которые необходимо заполнить
  • Числа, которые добавляются без разделителя

Хотя это, вероятно, можно сделать за один вызов awk, я бы для простоты использовал один вызов для каждой задачи.

Из вашего примера ввода/вывода я предполагаю, что ваши числа всегда содержат 9 знаков после запятой.

Решение проблемы «отсутствия сепаратора»

awk '{
         while ($0 ~ /[0-9]+\.[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^ ]/) {
             $0=gensub(/([0-9]+\.[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])([^ ])/, "\\1 \\2", $0)
        }
        print
      }' input.txt > first_step.txt

Примечание: если ваша gawkверсия >= 4.0, вы можете заменить [0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]на [0-9]{9}, что даст:

awk '{
         while ($0 ~ /[0-9]+\.[0-9]{9}[^ ]/) {
             $0=gensub(/([0-9]+\.[0-9]{9})([^ ])/, "\\1 \\2", $0)
        }
        print
      }' input.txt > first_step.txt

(Так легче читать, не правда ли?) Теперь у нас first_step.txtполучается вот так:

0.001000000 *********************************************
0.061059059 -3524.927327218 -3524.938421865 ***************
0.121118118 -887.564833130 -887.569649256 -6250.350946527
0.181177177 -387.169559377 -387.173137963 -2743.981985633
0.241236236 -223.812193853 -223.815321341 -1504.799155086
0.301295295 -134.073058536 -134.075910507 -924.916305653
0.361354354  -76.668692929  -76.671412688 -612.480371134

Замена «*» на значения из следующих строк

Это тоже немного сложно сделать. Предположим, что эти строки '*' встречаются только в начале вашего файла. Сначала мы сделаем так, чтобы каждая строка имела 4 поля:

awk '/\*/ {
              a=""
              for (i=1; i < 5; i++) {
                  if (i < NF) a=a" "$i
                  else a=a" ***************"
              }
              print a; next
           }
           {print}' first_step.txt > second_step.txt

Вывод вsecond_step.txt

 0.001000000 *************** *************** ***************
 0.061059059 -3524.927327218 -3524.938421865 ***************
0.121118118 -887.564833130 -887.569649256 -6250.350946527
0.181177177 -387.169559377 -387.173137963 -2743.981985633
0.241236236 -223.812193853 -223.815321341 -1504.799155086
0.301295295 -134.073058536 -134.075910507 -924.916305653
0.361354354  -76.668692929  -76.671412688 -612.480371134

А теперь самое интересное...

awk 'BEGIN{first_lines=0}
     /\*/ {for (i=1; i<NF+1;i++) a[NR, i]=$i; next}
     first_lines != 1 {for (i=1; i<NF+1;i++) {a[NR, i]=$i};
                       for (i=NR-1; i > 0; i--) {
                           for (j=1; j < NF +1; j++) {
                               if (a[i, j] ~ /^\**$/) a[i, j] = a[i+1, j]
                           }
                       }
                       for (i=1; i < NR+1; i++) {
                           for (j=1; j < NF +1; j++) {
                               printf("%16s", a[i, j])
                           }
                           printf("\n")
                       }
                       first_lines = 1
                       next
                      }
                      {for (i=1;i<NF+1; i++) printf("%16s", $i)
                       printf("\n")
                      }' second_step.txt > output.txt

Выход:

     0.001000000 -3524.927327218 -3524.938421865 -6250.350946527
     0.061059059 -3524.927327218 -3524.938421865 -6250.350946527
     0.121118118  -887.564833130  -887.569649256 -6250.350946527
     0.181177177  -387.169559377  -387.173137963 -2743.981985633
     0.241236236  -223.812193853  -223.815321341 -1504.799155086
     0.301295295  -134.073058536  -134.075910507  -924.916305653
     0.361354354   -76.668692929   -76.671412688  -612.480371134

Связанный контент