Wikipedia talk:WikiProject Tree of Life/Articles without images

Page contents not supported in other languages.
From Wikipedia, the free encyclopedia
WikiProject iconTree of Life Project‑class
WikiProject iconThis page is within the scope of WikiProject Tree of Life, a collaborative effort to improve the coverage of taxonomy and the phylogenetic tree of life on Wikipedia. If you would like to participate, please visit the project page, where you can join the discussion and see a list of open tasks.Tree of LifeWikipedia:WikiProject Tree of LifeTemplate:WikiProject Tree of Lifetaxonomic articles
ProjectThis page does not require a rating on Wikipedia's content assessment scale.

This is the perl script that I used to create the list. 

#!perl -w

open IN, "bzcat ../../20051211_pages_articles.xml.bz2 |" or die $!;
$/="<page>\n";

my %ns;
my $header = <IN>;
while ($header =~ m#<namespace key=".{1,3}">(.*?)</namespace>#g) {
    $ns{$1} = 1;
}

while (<IN>) {
    my ($tit) = m#<title>(.*)</title>#;
    next if $tit =~ /^(.+?):/ and $ns{$1};

    if (/#REDIRECT\s*\[\[(.*)]]/) {
        next;
    }
    next if not /{{\s*Taxobox/i;
    s/<!--.*?-->/ /sg;   # replace angle brackets by html entities!
    next if /\[\[[iI]mage/ or /Taxobox image/i or /\|\s*image\s*=/;

    my @taxo;
    if (/[^a-z]regnum[^a-z][^'\n]+\[\[(.*)]](\w*)/) {
        push @taxo, $1.$2;
    }
    if (/[^a-z]classis[^a-z][^'\n]+\[\[(.*)]](\w*)/) {
        push @taxo, $1.$2;
    }
    if (/[^a-z]ordo[^a-z][^'\n]+\[\[(.*)]](\w*)/) {
        push @taxo, $1.$2;
    }
    if (/[^a-z]familia[^a-z][^'\n]+\[\[(.*)]](\w*)/) {
        push @taxo, $1.$2;
    }
    s/.*\|// for @taxo;

    print "* ", join ' - ', @taxo, "[\[$tit]]\n";
}

Going down the lists[edit]

I finished going through the mammals list today, adding images and deleting old entries that have images. Next project: Plants. Bob the Wikipedian (talk) 20:29, 19 May 2008 (UTC)[reply]

Retrieved from "https://en.wikipedia.org/w/index.php?title=Wikipedia_talk:WikiProject_Tree_of_Life/Articles_without_images&oldid=1139617883"