http://www.perlmonks.org?node_id=589404


in reply to Re: multiple regex logical AND
in thread multiple regex logical AND

corrected the missing " and tried this (this file has the 2 params set to what I'm searching for)

perl -nle 'print $ARGV if !$seen{$ARGV}++ ;print if /^JRECOV="yes"/&&/^TEOJ="-w"/' ss1lab02

AND

perl -n00 -le 'print $ARGV if !$seen{$ARGV}++ ;print if /^JRECOV="yes"/ms &&/^TEOJ="-w"/ms' ss1lab02

Neither is returning the lines (filename is returned)

Replies are listed 'Best First'.
Re^3: multiple regex logical AND
by shmem (Chancellor) on Dec 12, 2006 at 22:26 UTC
    Please see I know what I mean. Why don't you?

    What's your ss1lab02 file like? mine is: 

    # sample input file for node 589354
# hope this helps.

no=good
JRECOV="yes"
TEOJ="-w"

foo=bar
quux=blorfl

    [download]

    Oneliner, and output: 

    bash$ perl -n00 -le 'print $ARGV if !$seen{$ARGV}++ ;print if /JRECOV=
+"yes"/ms && /TEOJ="-w"/ms' ss1lab02 
ss1lab02

no=good
JRECOV="yes"
TEOJ="-w"

    [download]

    Tired of guessing,
    --shmem 

    _($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom