Jeg har følgende detaljer fra bearbeidet spørring:

queuename qtype resv/used/tot. np_load arch states --------------------------------------------------------------------------------- abax55@lp55cs008 BP 0/36/36 1.08 lx-amd64 gf:app_monitor=1 gf:app_abaqus=1 gf:app_abaqusfgs=1 gf:app_actran=1 hl:load_avg=38.980000 hl:load_short=38.550000 hl:load_medium=38.980000 hl:load_long=39.030000 

I vil bare grep hl:load_avg=38.980000 med prefiks abax55@lp55cs008 det betyr at utgangen skal se ut som:

abax55@lp55cs008 - hl:load_avg=38.980000 

…. dette er bare for en maskin som heter cs008. og totalt antall maskiner vil være 100+.

Vennligst foreslå to alternativer:

  1. for å greppe bare en bestemt maskin,
  2. for å gripe alle maskiner

Kommentarer

  • griper alle maskiner – hva er navnekonvensjonen for alle maskiner? har de et vanlig prefiks i navnene sine?
  • abax55 @ lp55cs001 abax55 @ lp55cs002 abax55 @ lp55cs003 abax55 @ lp55cs004 …. så videre!
  • min eneste inngang for hele denne spørringen skal være ' abax55 ', resten alt må gjøres med skall
  • Spørsmålet ditt er fortsatt uklart og må det være grep? Hvis grepping for ett tilfelle er enkelt, kan du skrive ut teksten før resultatet
  • Bruk grep rep -o "hl:load_avg=38.980000" machines | xargs -L 1 echo "abax55@lp55cs008 -", eller awk awk 'match($0,/hl:load_avg=38.980000/) { print "abax55@lp55cs008 - " substr($0,RSTART,RLENGTH) }' machines

Svar

Awk løsning:

1) for å greppe bare en bestemt maskin:

awk -v m="cs008" "/abax55@lp55cs[0-9]/ && $1 ~ m{ m_name=$1 } m_name && /hl:load_avg=/{ print m_name" - "$1; exit }" file 

Utdata:

abax55@lp55cs008 - hl:load_avg=38.980000 

2) for grepping av alle maskiner:

awk "/abax55@lp55cs[0-9]/{ m_name=$1 } m_name && /hl:load_avg=/{ print m_name" - "$1; m_name=0 }" file 

Kommentarer

  • er det mulig å kjøre hele kommandoen på en enkelt linje?
  • @Nayak, utfør spørsmålet ditt, det høres ut vag
  • er det mulig å ' awk -vm = " cs008 " ' / abax55 @ lp55cs [0-9] / & & $ 1 ~ m {m_name = $ 1} awk -vm = " cs008 " ' / abax55 @ lp55cs [0-9] / & & $ 1 ~ m {m_name = $ 1} ' i en enkelt linje?
  • ja. dette kan kjøres alt på en linje. Bytt ut de nye linjene i det siterte awk-skriptet med ; tegn. (enten eller begge newline og ; kan brukes til å skille utsagn i awk).
  • veldig enkel løsning og kjøretiden er lav …. tusen takk

Svar

For testing har jeg satt inn samme innhold i fil flere ganger ved å endre vertsnavnene i filen

input file queuename qtype resv/used/tot. np_load arch states --------------------------------------------------------------------------------- abax55@lp55cs008 BP 0/36/36 1.08 lx-amd64 gf:app_monitor=1 gf:app_abaqus=1 gf:app_abaqusfgs=1 gf:app_actran=1 hl:load_avg=38.980000 hl:load_short=38.550000 hl:load_medium=38.980000 hl:load_long=39.030000 queuename qtype resv/used/tot. np_load arch states --------------------------------------------------------------------------------- abax55@lp55cs009 BP 0/36/36 1.08 lx-amd64 gf:app_monitor=1 gf:app_abaqus=1 gf:app_abaqusfgs=1 gf:app_actran=1 hl:load_avg=38.980000 hl:load_short=38.550000 hl:load_medium=38.980000 hl:load_long=39.030000 queuename qtype resv/used/tot. np_load arch states --------------------------------------------------------------------------------- abax55@lp55cs007 BP 0/36/36 1.08 lx-amd64 gf:app_monitor=1 gf:app_abaqus=1 gf:app_abaqusfgs=1 gf:app_actran=1 hl:load_avg=38.980000 hl:load_short=38.550000 hl:load_medium=38.980000 hl:load_long=39.030000 

kommando

 for i in `sed -n "/abax55@lp55cs/p" file.txt |awk "{print $1}"`; do sed -n "/$i/,+5p" file.txt | awk "{print $1}" | sed -n -e "1p" -e "$p" | perl -pne "s/\n/-/"| sed "s/-$/\n/g"; done 

output

abax55@lp55cs008-hl:load_avg=38.980000 abax55@lp55cs009-hl:load_avg=38.980000 abax55@lp55cs007-hl:load_avg=38.980000 

Kommentarer

  • @Nayak Kan du stemme på svar

Svar

Jeg vil ikke bruke grep Jeg vil bruke perl:

#!/usr/bin/env perl use strict; use warnings; use Data::Dumper; my %values = do { local $/; <> } =~ m/(\w+\@\w+).*?hl:load_avg=([\d\.]+)/gms; print Dumper \%values; print $values{"abax55@lp55cs008"} 

Jeg kan sannsynligvis avgrense det hvis du kan gi et mer spesifikt plateformat. Men du kan analysere hele strofe i en blokk enkelt nok, fordi hver nye «blokk» ikke har noe mellomrom i starten (det er enda enklere hvis det er en klar skillelinje mellom postene, for eksempel en tom linje, men uten å se din produksjon kan jeg ikke fortelle hva det ville være.

#!/usr/bin/env perl use strict; use warnings; use Data::Dumper; my $current_host = ""; my %values; #<> reads stdin or files specified on command line. #if that doesn"t work for you, you can "open" a specific file, or #use qx() or backticks to run a a command. while ( <> ) { #match a regex and capture the result if it"s valid. if ( m/^(\w+\@\w+)/ ) { $current_host = $1 }; #lines that start with whitespace are the values. if ( m/^\s+(\w+:\w+)=([\d\.]+)/ ) { #$1 and $2 are captured via the brackets $values{$current_host}{$1} = $2; } } #for debug: print Dumper \%values; #to print a specific key: my $target_key = "hl:load_avg"; foreach my $host ( sort keys %values ) { print "$host - $target_key=",$values{$host}{$target_key},"\n"; } 

Legg igjen en kommentar

Din e-postadresse vil ikke bli publisert. Obligatoriske felt er merket med *