Assine a Lista Dicas-L
Receba diariamente por email as dicas
de informática publicadas neste site
Para se descadastrar, clique aqui.
Gerador de palavreado bizarro
Colaboração: Juan Carlos Castro y Castro
Data de Publicação: 02 de Outubro de 2005
dica: Com este script, você pode gerar uma sequência de parágrafos de tamanho arbitrário usando o pacote "words", wue vem instalado em (pelo que sei) todas as distribuições Linux e que originalmente serve para evitar que usuários criem senhas para sí próprios que sejam palavras conhecidas. O arquivo fica em /usr/share/dict/words (No Fedora Core 3, pode ser que em outra distro o caminho seja diferente).
Se alguém souber de um pacote correspondente só com palavras da língua portuguesa, ficará facílimo gerar uma versão que gera palavreado na língua pátria. O pessoal que trabalha com tipografia pode achar isto útil para gerar texto "filler".
Abaixo o script, e um resultado de rodá-lo com os parâmetros "3 3 10 30":
<i>Exhortatively adventual fogon all-bitter ruths. Groundliness Forsythe Rieka but coinitial Mantuan but megalomaniacally Urey semiresoluteness but toatoa tibiae thought-laden Hibernical quasi-victorious immaculate syncretical the unofficiously multimetalic house totes cassena strickled sewages vapidity.
Wavy-edged gadrooned enalid discants astronomics preffroze. Arion unheritable Filicites concoagulate loathness cantillated superintenseness recooper nonsusceptive the Timotheus of giblet-checked Trinl deflexed qualmy histodiagnosis befrocked handbreed cookery cicrumspections IAS.
Buzzword. Prefabrications neat-dressed yellow-hilted monoketone genecology and atua. Hendaye of Corinna and Cervulus blepharoplast.</i>
#!/bin/sh
#
# gibberish.sh - Generate Burroughsesque text
# This script is in the PUBLIC DOMAIN
#
# Use: gibberish.sh [pmin] [pmax] [wordsmin] [wordsmax]
# pmin, pmax - Minumum and maximum # of paragraphs
# wordsmin, wordsmax - Minimum and maximum words per paragraph
# (not counting "of", "the", "and", "or", "but")
#
# Defaults: 3 8 30 130
#
export NPARMIN=3
export NPARMAX=8
export NWORDSPARMIN=30
export NWORDSPARMAX=130
if [ "$4" != "" ]; then
export NWORDSPARMAX=$4
fi
if [ "$3" != "" ]; then
export NWORDSPARMIN=$3
fi
if [ "$2" != "" ]; then
export NPARMAX=$2
fi
if [ "$1" != "" ]; then
export NPARMIN=$1
fi
if [ 0$NWORDSPARMAX -lt 0$NWORDSPARMIN ]; then
export NWORDSPARMAX=$NWORDSPARMIN
fi
if [ 0$NPARMAX -lt 0$NPARMIN ]; then
export NPARMAX=$NPARMIN
fi
export NWORDSPARRNG=$(($NWORDSPARMAX-$NWORDSPARMIN))
export NPARRNG=$(($NPARMAX-$NPARMIN))
awk '
BEGIN {
nwords = 0;
}
{
wlist[nwords++] = $0;
}
END {
srand();
npars = 3 + int(5 * rand());
npars = ENVIRON["NPARMIN"] + int(ENVIRON["NPARRNG"] * rand());
for (par = 0; par < npars; par++)
{
nwordspar = ENVIRON["NWORDSPARMIN"] + int(ENVIRON["NWORDSPARRNG"] * rand());
for (i = 0; i < nwordspar; i++)
{
thisword = wlist[int(nwords * rand())];
if (i > 0)
{
if (int(15 * rand()) == 8)
printf ". %s%s", toupper(substr(thisword,1,1)), substr(thisword,2);
else if (int(20 * rand()) == 19)
printf " of %s", thisword;
else if (int(20 * rand()) == 18)
printf " the %s", thisword;
else if (int(20 * rand()) == 17)
printf " and %s", thisword;
else if (int(20 * rand()) == 16)
printf " or %s", thisword;
else if (int(20 * rand()) == 15)
printf " but %s", thisword;
else
printf " %s", thisword;
}
else
printf "%s%s", toupper(substr(thisword,1,1)), substr(thisword,2);
}
printf ".\n\n";
}
}' </usr/share/dict/words
Veja a relação completa dos artigos de Juan Carlos Castro y Castro
Referências Adicionais
Referências adicionais sobre os assuntos abordados neste site podem ser encontradas em nossa Bibliografia.
