DICT (v2)

I've just made my DICT-tool even shorter and more obfuscated than it already was :-)

perl -e'connect _,pack sa14,2,"\nDBo\$\36",socket _,2,1,$/=select _;$|=print"d ! @ARGV\nq\n";print$/ <_>=~/".+?^(.*?)^\./sm' perl

Enjoy!

•Update: one char shorter, which also made it slightly more reliable (I initially matched on the result code, but it could on occasion accidently show up in the host identification. Now I match on a doublequote, which seems to be safe)

Note: pack is used to make it endian-independent

Note 2: the commandline arg ('perl') is the word to be looked up

Comment on DICT (v2) Download Code

Replies are listed 'Best First'.
Re: DICT (v2) by xmath (Hermit) on Jul 21, 2003 at 12:11 UTC
whee, I just came up with a version that's one char shorter and much hairier :-) `perl -e'connect$\|=socket(1,2,1,$/=select+1),pack sa14,2,"\nDBo\$\36";print"d ! @ARGV\nq\n";print$/ +<1>=~/".+?^(.*?)^\./sm' perl`	[reply] [d/l]