new-words

view oneliners.sh @ 56:6d6655d4cab6

new-words.pl stub removed
author Igor Chubin <igor@chub.in>
date Thu Nov 03 16:01:53 2011 +0100 (2011-11-03)
parents
children
line source
1 temp=/tmp/oneliner$$
2 while read l
3 do
4 dict -h dictd.xdsl.by -d mueller24 "$l" 2> /dev/null | perl -n -e 'print if ($y and not /^\s*$/) ; $y=1 if /'$l'/;' | grep -v _Syn | grep -v _Ant > $temp
5 if [ `wc -l $temp | awk '{print $1}'` = 1 ]
6 then
7 echo -n $l
8 cat $temp
9 fi
10 done