new-words

annotate oneliners.sh @ 23:4b9d13c78de2

minifix; chars in vim iskeyword
author Igor Chubin <igor@chub.in>
date Sun May 16 22:16:31 2010 +0300 (2010-05-16)
parents
children
rev   line source
igor@20 1 temp=/tmp/oneliner$$
igor@20 2 while read l
igor@20 3 do
igor@20 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
igor@20 5 if [ `wc -l $temp | awk '{print $1}'` = 1 ]
igor@20 6 then
igor@20 7 echo -n $l
igor@20 8 cat $temp
igor@20 9 fi
igor@20 10 done
igor@20 11