Help:Scripts to display wanted Howtos

use LWP::Simple; use Net::hostent; use Socket; # # $host = "http://en.howto.wikicities.com/index.php?title=Special:Wantedpages&limit=500&offset=0"; $content = get($host); @scraps = split(//,$scrap) ; foreach $scope (@scopes){ if($scope =~ /^Howto/i || $scope =~ /^How to/i){ #if($scope ne "HowTo" || $scope ne "HowTo Wiki"){ print "# $scope\n"; $mark[$y] = $scope; $y++; #}                    }                   }                 }                 print "Total: $y\n";
 * 1) !/usr/bin/perl
 * 1)   Licences under GPL
 * 1) $host = "http://en.howto.wikicities.com/wiki/Special:Allpages";
 * 1) 		print "$content";