new-words

diff oneliners.sh @ 20:23f949c03f95

Usage information, oneliners prototype script, autoraising of the words that are similar to known
author Igor Chubin <igor@chub.in>
date Wed Apr 28 21:00:38 2010 +0300 (2010-04-28)
parents
children
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/oneliners.sh	Wed Apr 28 21:00:38 2010 +0300
     1.3 @@ -0,0 +1,11 @@
     1.4 +temp=/tmp/oneliner$$
     1.5 +while read l
     1.6 +do
     1.7 +    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
     1.8 +    if [ `wc -l $temp | awk '{print $1}'` = 1 ]
     1.9 +    then
    1.10 +        echo -n $l
    1.11 +        cat $temp
    1.12 +    fi
    1.13 +done
    1.14 +