Usuario discusión:Angus/Teodoro

Contenido de la página no disponible en otros idiomas.
De Wikipedia, la enciclopedia libre
   wget -O lista-0 'http://it.wikipedia.org/wiki/Progetto:Rimozione_contributi_sospetti/Teodoro_Amad%C3%B2/Lista_provvisoria/Fatto?action=raw'
   grep -vi innoc lista-0 > lista-1
   grep '^#' lista-1 > lista-2
   sed -e 's/^[^[]*\[\[\([^]]*\)\]\].*$/\1/' lista-2 > lista-3
   rm -rf arts
   mkdir arts
   sed "s/ /_/g; s/'/%27/g" lista-3 | xargs -n 1 -i wget -O 'arts/{}' 'http://it.wikipedia.org/wiki/{}?action=raw'
   (cd arts; for art in * ; do echo "$art  $(grep '\[\[es:' $art)" >> ../lista-4 ; done )
   grep '\[\[es:' lista-4 > lista-5
   sed -e "s/^\([^ ]*\)/# it:\1 →/; s/_/ /g; s/%27/'/g; s/\[\[es:/[[:es:/" lista-5 > lista-6