Help:Scripts to display empty Objects

use LWP::Simple; use Net::hostent; use Socket; # $host = "http://en.howto.wikicities.com/wiki/Special:Allpages"; $root = "http://en.howto.wikicities.com"; #no slash $log = "objectsAll.txt"; $logE = "objectsEmpty.txt"; $content = get($host); open(OUTF,">$log"); open(OUTFE,">$logE"); @list = split(/\"/,$content); $x=0; foreach $chunk (@list){  if($chunk =~ /\/wiki\// && !($chunk =~ /.wikicities.com/)){  	#print "$chunk\n"; 	$linklist[$x] = $chunk; 	$x++;   }else{ 	#print "#";   } } $testlist[0] = "/wiki/bzip2"; $testlist[1] = "/wiki/Apt_command"; foreach $link (@linklist){  # print "$root$link";   $content = 0;   $content = get("$root$link");   if($content =~ /object:?.?.?.? .a href=\"http:\/\/en.wikipedia.org\/wiki\//i){ $linkit = substr($link,6); print "# $linkit"; print OUTF "# $linkit\n"; if($content =~ /object is a currently empty/){ print OUTFE "# $linkit\n"; print " empty"; } 	print "\n"; } } close(OUTF); close(OUTFE); print "\n";
 * 1) !/usr/bin/perl
 * 1)   Licences under GPL
 * 1)   Licences under GPL
 * 1) Config
 * 1) Config
 * 1) Extract the page names
 * 1) 	print "match\n"