new-words
diff oneliners.sh @ 27:0a80b2fa3ed8
initial tagging support
author | Igor Chubin <igor@chub.in> |
---|---|
date | Fri May 21 19:53:24 2010 +0300 (2010-05-21) |
parents | |
children |
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/oneliners.sh Fri May 21 19:53:24 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 +