Template talk:Dating maintenance categories progress box/core
perl[edit]
for ($i=1;$i<100;$i++) {
print "-->{{#if:{{{$i|}}}|{{!}}{{{$i}}}{{!}}{{#expr:{{PAGESINCAT:{{{$i}}}}}-{{PAGESINCAT:Monthly clean up category ({{{$i}}}) counter}}}}}}<!--\n";
}
Rich Farmbrough, 03:25, 12 September 2010 (UTC).