Re: multiple regex logical AND

You don't want bitwise or (|) but logical and (&&):

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

Hmm.. but is it possible that two strings match the beginning of a line? Yes, if you slurp the file or use paragraph mode and use the m and s modifiers (see perlre):

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

--shmem

update: corrected glitch with || and &&

_($_=" "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}

Comment on Re: multiple regex logical AND Select or Download Code

Replies are listed 'Best First'.
Re^2: multiple regex logical AND by bigswifty00000 (Beadle) on Dec 12, 2006 at 20:22 UTC
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)	[reply]
Re^3: multiple regex logical AND by Joost (Canon) on Dec 12, 2006 at 20:24 UTC
Please read writeup formatting tips - you should use `<code>` tags around code. this is hardly readable. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re^2: multiple regex logical AND by bigswifty00000 (Beadle) on Dec 12, 2006 at 20:30 UTC
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)	[reply]
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]