Вставьте строку и столбец в матрицу с помощью awk

У меня есть набор данных с сеткой из 250 строк x 300 столбцов в матричной форме:

ifile.txt

2 3 4 1 2 3
3 4 5 2 4 6
2 4 0 5 0 7
0 0 5 6 3 8

Я хотел бы вставить значения широты в первый столбец и значения долготы вверху. Что выглядит так:

файл.txt

         20.00 20.33 20.66 20.99 21.32 21.65 
 100.00      2     3     4     1     2     3
 100.33      3     4     5     2     4     6
 100.66      2     4     0     5     0     7
 100.99      0     0     5     6     3     8

Шаг 0,33

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

echo 20 > latitude.txt
for i in `seq 1 250`;do
i1=$(( i + 0.33 ))     #bash can't recognize fractions
echo $i1 >> latitude.txt
done

echo 100 > longitude.txt
for j in `seq 1 300`;do
j1=$(( j + 0.33 ))
echo $j1 >> longitude.txt
done

paste longitude.txt ifile.txt > dummy_file.txt
cat latitude.txt dummy_file.txt > ofile.txt

linux shell awk gawk
person Kay    schedule 26.02.2018    source источник
comment
вкладка ввода отделена?   -  person Sundeep    schedule 26.02.2018

Ответы (3)


arrow_upward
1
arrow_downward

Следование awk также может помочь вам в этом.

awk -v col=100 -v row=20 'FNR==1{printf OFS;for(i=1;i<=NF;i++){printf row OFS;row=row+.33;};print ""} {col+=.33;$1=$1;print col OFS $0}' OFS="\t"  Input_file

Добавление не одной линейной формы вышеуказанного решения:

awk -v col=100 -v row=20 '
FNR==1{
  printf OFS;
  for(i=1;i<=NF;i++){
    printf row OFS;
    row=row+.33;
};
  print ""
}
{
  col+=.33;
  $1=$1;
  print col OFS $0
}
' OFS="\t"  Input_file
person RavinderSingh13    schedule 26.02.2018

arrow_upward
1
arrow_downward

Awk решение:

awk 'NR == 1{ 
         long = 20.00; lat = 100.00; printf "%12s%.2f", "", long; 
         for (i=1; i<NF; i++) { long += 0.33; printf "\t%.2f", long } print "" }
     NR > 1{ lat += 0.33 }
     { 
         printf "%.2f%6s", lat, ""; 
         for (i=1; i<=NF; i++) printf "\t%d", $i; print "" 
     }' file
person RomanPerekhrest    schedule 26.02.2018

arrow_upward
1
arrow_downward

С perl

$ perl -lane 'print join "\t", "", map {20.00+$_*0.33} 0..$#F if $.==1;
              print join "\t", 100+(0.33*$i++), @F' ip.txt
        20      20.33   20.66   20.99   21.32   21.65
100     2       3       4       1       2       3
100.33  3       4       5       2       4       6
100.66  2       4       0       5       0       7
100.99  0       0       5       6       3       8
  • -a to auto-split input on whitespaces, result saved in @F array
  • if $.==1 for the first line of input
    • map {20.00+$_*0.33} 0..$#F iterate based on size of @F array, and for each iteration, we get a value based on equation inside {} where $_ will be 0, 1, etc upto last index of @F array
    • print join "\t", "", map... используйте разделитель табуляции для печати пустого элемента и результатов карты
  • Для всех строк выведите содержимое массива @F с префиксом результатов 100+(0.33*$i++), где $i изначально будет 0 в числовом контексте. Опять же, табуляция используется в качестве разделителя при объединении этих значений.


Используйте sprintf, если это необходимо для форматирования, также можно инициализировать $, вместо использования join

perl -lane 'BEGIN{$,="\t"; $st=0.33}
            print "", map { sprintf "%.2f", 20+$_*$st} 0..$#F if $.==1;
            print sprintf("%.2f", 100+($st*$i++)), @F' ip.txt
person Sundeep    schedule 26.02.2018