greping deux choses différentes d'une commande de queue

Question

est-il un moyen de grep 2 occurrences d'un mot ou d'une instance d'un autre mot dans une seule ligne de cmd avec perl (perl est un must)

Je suis en train de faire un fichier queue -f | grep -m 2 word_x OU grep word_y

J'essaie d'attraper word_x deux fois dans le fichier, si cela arrive, la queue s'arrête. Mais word_x n'apparaît pas toujours, donc j'aime avoir un autre word_y pour arrêter la commande tail.

si word_x apparaît 2 fois ou plus annuler la queue;
si word_x apparaît seulement 1 fois, recherchez une occurrence de word_y et annulez la queue;
si word_x n'apparaît pas mais que le mot y semble annuler la queue;

Word_y est le dernier mot qui apparaîtra toujours sur mon fichier.

Il peut donc être comme ces 3 exemples

texte
texte
word_x texte word_x
Test
word_y

texte
texte
texte word_x
Test
word_y

texte
texte
texte
word_y

je dois la queue du fichier. Je peux utiliser d'autres commandes, il n'a pas besoin d'être grep.

Est-ce possible? J'ai essayé plusieurs choses mais ne peux pas venir avec une solution simple, peut-être ce n'est pas possible de le faire sur une instruction de ligne de commande unique.

Answer 1

Sans entrée échantillon/sortie, il est une supposition, mais il semble que c'est ce que vous cherchez:

tail file | awk '{x+=gsub(/word_x/,"&")} x==2||/word_y/{exit} 1' 

En fonction des besoins que vous ne l'avez pas encore partagé avec nous, vous devrez peut-être des limites de mots aussi, par exemple avec GNU awk:

tail file | awk '{x+=gsub(/\<word_x\>/,"&")} x==2||/\<word_y\>/{exit} 1' 

Si vous voulez seulement examiner les cas où word_x se produit deux fois sur une ligne alors il est bref:

tail file | awk 'gsub(/\<word_x\>/,"&")==2||/\<word_y\>/{exit} 1' 

Answer 2

(1) si word_x apparaît 2 fois ou plus annuler la queue

C'est clair.Mais, ce qui suit est incompatible

(2) si word_x apparaît seulement 1 fois, chercher word_y

Cela dit chercher word_y que si la ligne a une seule occurrence de word_x

(3) et abandonner la queue si doesnt word_x apparaît mais le mot y apparaît abandonner la queue

Cependant, cela dit que pour regarder word_y si word_x ne pas apparaît.

(2) et (3) semblent conflit. Pour moi, ignorer (2) et utiliser (3) est le plus logique.

En outre, vous ne dites pas que vous vouliez la ligne « abort » à transmettre ou non.

est ici un code que je crois fonctionnera. J'ai fait un peu de test dessus

#!/usr/bin/perl 

my($word_x) = shift(@ARGV); 
my($word_y) = shift(@ARGV); 

# quirk of perl -- the regex needs the longest to be first in order if had 
# similar words like "abc" and "abcd" 
my(@rgx) = ($word_x,$word_y); 
@rgx = sort({length($b) <=> length($a)} @rgx); 
my($rgx) = join("|",@rgx); 

while (my $buf = <STDIN>) { 
    chomp($buf); 

    # NOTE: this assumes the "abort" line should be printed 
    print($buf,"\n"); 

    # get frequency of each word 
    # NOTE: this grabs partials, so it may need \b or \W wrappers 
    my(%freq); 
    while ($buf =~ /($rgx)/go) { 
     $freq{$1} += 1; 
    } 

    my $xcnt = $freq{$word_x}; 

    # got two or more of x -- we're done 
    last if ($xcnt >= 2); 

    # only look for y if x does _not_ appear at all 
    if ($xcnt == 0) { 
     # found a y -- we're done 
     last if ($freq{$word_y} >= 1); 
    } 

    # NOTE: this assumes the "abort" line should _not_ be printed 
    # use either of the prints but _not_ both 
    ###print($buf,"\n"); 
}