Troll removal program

#With this new program, message board trolls become a thing of the pas
+t! 
#Watch them seethe as they come closer and closer to a ban. 
#Install the troll removal program today! 
#Satisfaction guaranteed*! 

#*not a guarantee 

#!/loser/bin/perl

use strict; 
use warnings;
#use Extreme::Violence;

open(DISCUSSION, "mod.board") or die "Can't open discussions about tro
+ll. Admins already decided.\n";

foreach my $offence(my @website)
{
do
{
warn(my $troll);

} until my $banned eq "true";
}

close(DISCUSSION);
exit;
[download]

Comment on Troll removal program Download Code

Replies are listed 'Best First'.
Re: Troll removal program by dsb (Chaplain) on Aug 12, 2004 at 12:04 UTC
Not too bad, aside from small logic errors: `foreach my $offence(my @website)` [download] You are declaring `@website` everytime the loops starts, thus it will always be empty, and no trolls will ever be warned...that is not good. `warn(my $troll);` [download] Same type of thing here. You declare `$troll` inside the expression. The Troll variable is empty and so the warn function warns no one. The trolls run free once more. `until my $banned eq "true";` [download] `$banned` will never be true this way. The trolls shall live on...and on and on and on. See above for why. I'm feeling very redundant right now. dsb This `@ISA my` cool `%SIG`	[reply] [d/l] [select]
Re^2: Troll removal program by ringleader (Acolyte) on Aug 12, 2004 at 13:28 UTC
And aside from the fact that it won't do anything but print what we all know - admins control it all. :-p Run it and see. If i were being classy i'd say it was a poem about the impotence of the underlings.	[reply]
Re: Troll removal program by CloneArmyCommander (Friar) on Aug 12, 2004 at 20:24 UTC
hahaha :). "use Extreme::Violence" :). That's great :). That might not work in the real world, but it would be nice to have available for spam filters and popup blockers :).	[reply]


There's more than one way to do things
	PerlMonks