new-words
annotate misc/oneliners.sh @ 59:7a7a88277c08
experimental script oneliners.sh moved to misc/
| author | Igor Chubin <igor@chub.in> |
|---|---|
| date | Thu Nov 03 16:10:58 2011 +0100 (2011-11-03) |
| parents | oneliners.sh@23f949c03f95 |
| 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 |