Shell Programming and Scripting

echo "word" | awk 'NR==1{w=$0; l=split(w,W)} length==l{for(i=1;i<=l;i++)if(gsub(W[i],"&",w)!=gsub(W[i],"&"))next;print}' FS= - wordlist

#!/bin/bash
#anagramfinder
while :
do
#WORD=$1
WORD=$(shuf -n 1 /data/korpus2k/ordliste)
AG=$(echo "$WORD" | awk 'NR==1{w=$0; l=split(w,W)} length==l{for(i=1;i<=l;i++)if(gsub(W[i],"&",w)!=gsub(W[i],"&"))next;print}' FS= - /data/korpus2k/ordliste | sed s/$WORD//g; echo)

CHECK=$(echo -w "$AG" | wc -l)
	if [ "$CHECK" -gt "1" ]
	then echo $WORD && echo $AG;echo 
	else  true			
	fi
done

besat
baste bates beast beats besta stabe tabes

klimadebat
debatklima

yderste
dyreste rystede styrede syredet

OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0.8 (lenny) 

Description: anagram generator
 Wordplay generates anagrams of words or phrases. For example,
 "Debian GNU/Linux" = "laud benign unix", "nubian lug index",
 "dang nubile unix", or "I debug in lax nun".

wordplay Scrutinizer

Anagrams found:
     1.  ERIC RITZ SUN
     2.  RICE RITZ SUN
...
    48.  CRUZ REST I IN

#!/bin/bash
while IFS= read -r WORD
do
AG=$(echo "$WORD" | awk 'NR==1{w=$0; l=split(w,W)} length==l{for(i=1;i<=l;i++)if(gsub(W[i],"&",w)!=gsub(W[i],"&"))next;print}' FS= - /data/korpus2k/ordliste | sed s/"$WORD"//g; echo)
CHECK=$(echo -w "$AG" | wc -l)
	if [ "$CHECK" -gt "1" ]
	then echo "$WORD" && echo "$AG";echo 
	else true			
	fi 
done <  /data/korpus2k/ordliste

aaben
aabne

aaberen
aaberne

aaberne
aaberen

aabne
aaben

aabner
barena

aabrinken
karabinen

 
eller	 [eller] KC 
som	 [som] INDP nG nN 
specialiserer	 [specialisere] V PR AKT 
sig	 [sig] PERS nG 3S/P ACC 
i	 [i] PRP 
nogle	 [nogen] DET nG P NOM 
af	 [af] PRP 
funktionerne	 [funktion] N UTR P DEF NOM