Як виконати багаторядковий греп

Як би ви виконали текст із тексту, що з’являється у двох рядках?

Наприклад:

pbsnodes це команда, яку я використовую, яка повертає використання кластера linux

root$ pbsnodes
node1
    state = free
    procs = 2
    bar = foobar

node2
    state = free
    procs = 4
    bar = foobar

node3
    state = busy
    procs = 8
    bar = foobar

Я хочу визначити кількість програм, які відповідають вузлам, які перебувають у стані "вільний". Поки мені вдалося визначити "кількість прок" і "вузлів у вільному стані", але я хочу об'єднати їх в одну команду, яка показує всі вільні програми.

У наведеному вище прикладі правильною відповіддю було б 6 (2 + 4).

Що я маю

root$ NUMBEROFNODES=`pbsnodes|grep 'state = free'|wc -l`
root$ echo $NUMBEROFNODES
2

root$ NUMBEROFPROCS=`pbsnodes |grep "procs = "|awk  '{ print $3 }' | awk '{ sum+=$1 } END { print sum }'`
root$ echo $NUMBEROFPROCS
14

Як я можу шукати кожен рядок, який читає "procs = x", але лише якщо рядок над ним читає "state = free"?

Якщо дані завжди в такому форматі, ви можете просто записати їх:

awk -vRS= '$4 == "free" {n+=$7}; END {print n}'

( RS=засоби записів - абзаци ).

Або:

awk -vRS= '/state *= *free/ && match($0, "procs *=") {
  n += substr($0,RSTART+RLENGTH)}; END {print n}'

$ pbsnodes
node1
    state = free
    procs = 2
    bar = foobar

node2
    state = free
    procs = 4
    bar = foobar

node3
    state = busy
    procs = 8
    bar = foobar
$ pbsnodes | grep -A 1 free
    state = free
    procs = 2
--
    state = free
    procs = 4
$ pbsnodes | grep -A 1 free | grep procs | awk '{print $3}'
2
4
$ pbsnodes | grep -A 1 free | grep procs | awk '{print $3}' | paste -sd+ 
2+4
$ pbsnodes | grep -A 1 free | grep procs | awk '{print $3}' | paste -sd+ | bc 
6

https://en.wikipedia.org/wiki/Pipeline_(Unix)

Ось один із способів зробити це за допомогою pcregrep.

$ pbsnodes | pcregrep -Mo 'state = free\n\s*procs = \K\d+'
2
4

Приклад

$ pbsnodes | \
    pcregrep -Mo 'state = free\n\s*procs = \K\d+' | \
    awk '{ sum+=$1 }; END { print sum }'
6

Ваш вихідний формат заздалегідь підгрунтований для припусків абзацу Perl:

pbsnodes|perl -n00le 'BEGIN{ $sum = 0 }
                 m{
                   state \s* = \s* free \s* \n 
                   procs \s* = \s* ([0-9]+)
                 }x 
                    and $sum += $1;
                 END{ print $sum }'

Примітка

Це працює лише тому, що ідея Perl про "абзац" - це шматок непробільних рядків, розділених одним або кількома порожніми рядками. Якби у вас не було порожніх рядків між nodeрозділами, це не працювало б.

Дивись також

• Читання абзацу за раз
• перлрун

Якщо у вас є дані фіксованої довжини (фіксована довжина, що посилається на кількість рядків у записі), sedви можете використовувати Nкоманду (кілька разів), яка приєднує наступний рядок до простору шаблону:

sed -n '/^node/{N;N;N;s/\n */;/g;p;}'

повинен дати вам вихід:

node1;state = free;procs = 2;bar = foobar
node2;state = free;procs = 4;bar = foobar
node3;state = busy;procs = 8;bar = foobar

Для змінної композиції запису (наприклад, з порожнім роздільним рядком) ви можете скористатися командами розгалуження tі b, але awk, швидше за все, ви потрапите туди більш комфортно.

Реалізація GNU grepпоставляється з двома аргументами також для друку рядків перед ( -B) та після ( -A) відповідності. Фрагмент зі сторінки чоловіка:

   -A NUM, --after-context=NUM
          Print NUM lines of trailing context after matching lines.  Places a line containing  a  group  separator  (--)  between  contiguous  groups  of  matches.   With  the  -o  or
          --only-matching option, this has no effect and a warning is given.

   -B NUM, --before-context=NUM
          Print  NUM  lines  of  leading  context  before  matching  lines.   Places  a  line  containing  a group separator (--) between contiguous groups of matches.  With the -o or
          --only-matching option, this has no effect and a warning is given.

Тож у вашому випадку вам доведеться поздоровитись state = freeта також надрукувати наступний рядок. Поєднавши це з фрагментами вашого запитання, ви дійдете на щось подібне:

usr@srv % pbsnodes | grep -A 1 'state = free' | grep "procs = " | awk  '{ print $3 }' | awk '{ sum+=$1 } END { print sum }'
6

і трохи коротше:

usr@srv % pbsnodes | grep -A 1 'state = free' | awk '{ sum+=$3 } END { print sum }'
6

... і ось рішення Perl:

pbsnodes | perl -lne 'if (/^\S+/) { $node = $& } elsif ( /state = free/ ) { print $node }'

Ви можете використовувати awk getlineкоманду:

$ pbsnodes | awk 'BEGIN { freeprocs = 0 } \
                  $1=="state" && $3=="free" { getline; freeprocs+=$3 } \
                  END { print freeprocs }'

Від man awk :

   getline               Set $0 from next input record; set NF, NR, FNR.

   getline <file         Set $0 from next record of file; set NF.

   getline var           Set var from next input record; set NR, FNR.

   getline var <file     Set var from next record of file.

   command | getline [var]
                         Run command piping the output either into $0 or var, as above.

   command |& getline [var]
                         Run  command  as a co-process piping the output either into $0 or var, as above.  Co-processes are a
                         gawk extension.