DICT (v2)

[xmath]

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

[xmath]

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