Значения слияния последовательных строк, если у них есть те же значения на другом столбце (AWK)

Я должен объединить первое значение ($1) из последовательных строк, если их четвертое значение ($4) то же (I-PER).

Мне удалось отфильтровать значения, мне нужно просто использование awk:

awk ' ($4 == "I-PER") {printf $1; printf "\n" }

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

Пример (Вход):

Comandante  comandante  NP00000 I-PER
de  de  SPS00   I-PER
la  el  DA0FS0  I-PER
Guardia guardia NP00000 I-PER
Civil   civil   NP00000 I-PER
Pamplona    pamplona    NP00000 I-LOC
Poblador    poblador    NP00000 I-PER

Пример (Вывод):

Comandante de la Guardia Civil
Poblador
2
задан 13 April 2018 в 10:54

2 ответа

Другой awk решение постараться не печатать повторенный \newlines, если условие не встретилось ни в какой строке:

awk '($4=="I-PER"){ printf SEP$1; SEP=" "; C=1; next } 
      C==1{ SEP=""; print ""; C=0} END{print ""}' infile

пример ввел:

Comandante  comandante  NP00000 I-PER
de  de  SPS00   I-PER
la  el  DA0FS0  I-PER
Guardia guardia NP00000 I-PER
Civil   civil   NP00000 I-PER
no I-PER in fourth column
anotherline no I-PER in fourth column
Pamplona    pamplona    NP00000 I-LOC
Poblador    poblador    NP00000 I-PER

Вывод:

Comandante de la Guardia Civil
Poblador
2
ответ дан 2 December 2019 в 03:33

Быстрое и несколько грязное решение с тернарным оператором (condition?true:false), это делает тест, который Вы обеспечили и печатаете также $1 сопровождаемый пространством или новой строкой:

awk '{printf $4=="I-PER"?$1" ":"\n"}'

Вывод:

$ <test awk '{printf $4=="I-PER"?$1" ":"\n"}'
Comandante de la Guardia Civil 
Poblador

Вот довольно плохой альтернативный подход с массивом – по крайней мере, это не продолжает пустые линии как вышеупомянутое, делает для нескольких последовательных не -I-PER строки:

awk '{
  if ($4=="I-PER") {a[i++]=$1}
  else if (length(a)>0) {
    for (i in a) {printf a[i]" ";delete a[i]}
    print ""
    }
  }
 END {
  if (length(a)>0) {
    for (i in a) printf a[i]" ";print ""}
  }'

Вывод:

$ <test awk '{if($4=="I-PER"){a[i++]=$1}else if(length(a)>0){for(i in a){printf a[i]" ";delete a[i]};print ""}}END{if(length(a)>0){for(i in a)printf a[i]" ";print ""}}'
Comandante de la Guardia Civil 
Poblador
0
ответ дан 2 December 2019 в 03:33

Другие вопросы по тегам:

Похожие вопросы: