Re: a one-liner for this trivial problem?

How about this:

perl -ne "$small||=$ARGV; $small eq $ARGV? $h{$_}++: $h{$_}?0:print" s
+mall.txt large.txt
[download]

This takes advantage of the fact that $ARGV contains the file name.

Use single-quotes if you run in *nix.

"I'm fairly sure if they took porn off the Internet, there'd only be one website left, and it'd be called 'Bring Back the Porn!'"
-- Dr. Cox, Scrubs

Comment on Re: a one-liner for this trivial problem? Download Code

Replies are listed 'Best First'.
Re^2: a one-liner for this trivial problem? by space_monk (Chaplain) on Apr 17, 2013 at 04:22 UTC
Good idea, but removing the hard coding of file names perhaps gives.... `perl -ne " $ARGV eq $ARGV[0] ? $h{$_}++ : $h{$_} ? 0 : print; " small.txt large.txt` [download] A Monk aims to give answers to those who have none, and to learn from those who know more.	[reply] [d/l]