Gebruiker:Valhallasw/catschoon

Nodig:

• Perl
• Bash
• Python

Ik gebruik hiervoor:

• recur.pl

#!/usr/bin/perl
@a = `bash getcats $ARGV[0]`;

printf("Need to work on ".@a." cat pages\n");
foreach my $titel (@a) {
        chomp($titel);
        printf("-Working on: ".$titel.": \n");
        @b = `bash rmCatNotPage $titel`;
        printf("@b");
}

• getcats

rm category.dump.bz2 > /dev/null
echo -e "$1\n" | python2.3 category.py tree | grep -e '^#\[\[' | grep -e '([1-9]' | sed 's/\#\[\[:Categorie://g' | sed 's/|.*//g'

• rmCatNotPage

echo -e "$1\nN" | python2.3 category.py remove | grep -e 'Changing page'

Getcats haalt een lijst met subcats op en geeft alle subcats met op zn minst een artikel. Recur.pl gaat deze af en laat op iedere subcat rmCatNotPage lopen die de cat van alle pagina's haalt maar de cat niet wist.

Doel: Categorie:Wikipedia:Opgeheven_categorie leeghouden