Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Troll removal program

by ringleader (Acolyte)
on Aug 12, 2004 at 11:30 UTC ( #382211=poem: print w/replies, xml ) Need Help??

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


    dsb
    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 :).

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://382211]
Approved by dsb
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2020-12-03 05:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How often do you use taint mode?





    Results (50 votes). Check out past polls.

    Notices?