Re: Re: (thoughts on) Detect common lines between two files, one liner from shell

Yeah, it's not an obfuscation by any means. Just a nice way to put together a lot of common features. In fact, I'd take it one step further to fulfill one additional monkey wrench thrown in after that posting was made: what if the line appears more than once in either fileA or fileB or both, but you still want only one copy of the line?

Well, the answer is just as straightforward. Remove the dollar from the regex! I'll leave that explanation as an exercise to the clever reader. {grin}

-- Randal L. Schwartz, Perl hacker

update: Bleh! My mistake, the dollar was added to handle this case! I knew I had needed to deal with multiple hits somehow.

Remind me never to post again. {grin}

Comment on Re: Re: (thoughts on) Detect common lines between two files, one liner from shell

Replies are listed 'Best First'.
Re^3: (thoughts on) Detect common lines between two files, one liner from shell by Anonymous Monk on Dec 23, 2004 at 18:31 UTC
This should also work for an arbitrary number of files, which AFAIK has no equivalent UNIX command. To show common lines in 4 files: perl -ne 'print if ($seen{$_} .= @ARGV) =~ /32+1+0$/' fileA fileB fileC fileD	[reply]
Re^4: (thoughts on) Detect common lines between two files, one liner from shell by shmem (Chancellor) on Jun 22, 2007 at 23:55 UTC
The generalized form would be (golfed down a bit) for any number of files `perl -ne'BEGIN{$p.=-$_."+"for-@ARGV+1..-1;$p.=0}print if($s{$_}.=@ARGV +)=~/$p$/'` [download] --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]