#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;

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)
    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);
    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";
    $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.

    This @ISA my cool %SIG
      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.
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 :).