new-words
diff oneliners.sh @ 31:48ca8248e9cc
+esperanto normalization
author | Igor Chubin <igor@chub.in> |
---|---|
date | Tue Aug 17 21:35:57 2010 +0200 (2010-08-17) |
parents | |
children |
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/oneliners.sh Tue Aug 17 21:35:57 2010 +0200 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 +