Wikipedia talk:WikiProject Tree of Life/Articles without images

This is the perl script that I used to create the list.  open IN, "bzcat ../../20051211_pages_articles.xml.bz2 |" or die $!; $/=" \n"; my %ns; my $header = ; while ($header =~ m#(.*?) #g) { $ns{$1} = 1; } while () { my ($tit) = m# (.*) #; next if $tit =~ /^(.+?):/ and $ns{$1}; if (/#REDIRECT\s*\[\[(.*)]]/) { next; }    next if not /{{\s*Taxobox/i; s/&lt;!--.*?--&gt;/ /sg;  # replace angle brackets by html entities! next if /\[\\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"; } 
 * 1) !perl -w

Going down the lists
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)