Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Troll removal program

by dsb (Chaplain)
on Aug 12, 2004 at 12:04 UTC ( #382215=note: print w/ replies, xml ) Need Help??


in reply to Troll removal program

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


Comment on Re: Troll removal program
Select or Download Code
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.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (10)
As of 2014-07-11 09:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (223 votes), past polls