# Datos de entrada: un fichero de texto con los datos separados por tabulaciones # posición de los datos # 1:Blog 2: día 3:fecha 4:Url 5:antecedente 6:sexo # Datos de salida: fichero en formato dot con restricciones para la colocación de los nodos según la fecha de publicación del meme BEGIN { # Tratamiento inicial del filtro: se genera la cabecera del fichero dot printf "digraph enjutas \{\n" print "\{\n" print " node [shape=plaintext, fontsize=24];\n" /* the time-line graph */ printf "\"04/03/2008\"-> \"05/03/2008\"-> \"06/03/2008\"-> \"07/03/2008\"-> \"08/03/2008\"-> \"09/03/2008\"-> \"10/03/2008\"-> \"11/03/2008\"-> \"12/03/2008\"-> \"13/03/2008\"-> \"14/03/2008\"-> \"15/03/2008\"-> \"16/03/2008\"-> \"17/03/2008\"-> \"18/03/2008\"-> \"19/03/2008\"-> \"20/03/2008\"-> \"21/03/2008\"-> \"23/03/2008\"-> \"24/03/2008\"-> \"25/03/2008\"-> \"26/03/2008\"-> \"27/03/2008\"-> \"28/03/2008\"-> \"29/03/2008\"-> \"30/03/2008\"-> \"31/03/2008\"-> \"01/04/2008\"-> \"02/04/2008\"-> \"03/04/2008\"-> \"07/04/2008\"-> \"08/04/2008\"-> \"09/04/2008\"-> \"11/04/2008\"-> \"13/04/2008\"-> \"14/04/2008\"-> \"15/04/2008\"-> \"17/04/2008\"-> \"18/04/2008\"-> \"19/04/2008\"->\"20/04/2008\"-> \"21/04/2008\"-> \"24/04/2008\" -> \"30/04/2008\" -> \"03/05/2008\";\n" print "\}\n" printf "node [ color=Green,fontcolor=White,style=filled, fontsize=24, charset=latin1];\n" printf "edge [color=Red];\n" printf "ranksep=.75; size = \"45,45\";\n" i=0 } { # tratamiento para cada una de las filas del fichero array_name[i]=$1 array_fecha[i]= $3 array_url[i]= $4 array_antecedente[i]=$5 array_nombre[i]=$1 array_num_hijos[i]=0 array_num_hijos_indirectos[i]=0 array_padre[i]=0 array_nivel[i]=0 array_path[i,0]="" array_genero[i]=$6 if (i > 0) { printf "\{rank=\"same\"; \"%s\";%s\}\n",$3,i printf "%s [label=\"%s\"];\n",i,$1 if ($6 =="M") printf "%s [color=darkorchid2];\n",i if ($6 =="H") printf "%s [color=brown2];\n",i for (j=0; j <=i; j++) { antecedente= array_url[j] if (match ($5, antecedente) ==1) { printf " \"%s\" -> ",j array_num_hijos[j]= array_num_hijos[j]+1 array_nivel[i]=array_nivel[j]+1 nivel=array_nivel[i] for (k=0; k