Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
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 about the Monastery: (3)
As of 2015-04-26 21:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who makes your decisions?







    Results (490 votes), past polls