Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Guestbook ANTI-HACK

Apr 17, 2000, 9:16 PM
cK
Enthusiast (567 posts)
Apr 17, 2000, 9:16 PM
Post #1 of 6
Views: 4840
Shortcut
Quote Reply
Guestbook ANTI-HACK
Sometimes jokes add the following to my guestbook wich corrupt my layout!

Code:
hahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahaha hahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahah ahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahah ahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahaha hahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahaha hhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahah ahahahahahahahahhahahahahahahahahahahahahahahahhahahahahahahahahahahahahahahahhahahahahaha

That's why i would like to check the comments field. I would like to limit the maximum characters a word in the comments field could have; something like:

Code:
# delete long words (to protect layout)
@comments = split (/\s/, $in{'comments'});
foreach $long_word (@comments) {
if ($long_word >= 20) {
$censor = 1;
$mailadmin = 1;
}
}

BUT it's not working, could anyone help me out?
Apr 17, 2000, 9:42 PM
JPDeni
Veteran (8669 posts)
Apr 17, 2000, 9:42 PM
Post #2 of 6
Views: 4658
Shortcut
Quote Reply
Re: Guestbook ANTI-HACK In reply to
You need to tell it to look at the length of the long word.

Code:
if (length($long_word) >= 20) {


------------------
JPD






Apr 18, 2000, 10:04 AM
Pasha1
User (207 posts)
Apr 18, 2000, 10:04 AM
Post #3 of 6
Views: 4651
Shortcut
Quote Reply
Re: Guestbook ANTI-HACK In reply to
another one:
Code:
@chars = split(//,$word);
foreach $char (@chars) { $a++; }
if ($a > 20) { &error; }
Apr 20, 2000, 9:11 PM
GClemmons
User / Moderator (314 posts)
Apr 20, 2000, 9:11 PM
Post #4 of 6
Views: 4667
Shortcut
Quote Reply
Re: Guestbook ANTI-HACK In reply to
You could always perform the entire process of splitting apart the submitted comment and testing in one line:
s/([^ ]){20}/{$censor = 1; $mailadmin = 1}$1/e foreach (split(/ /, $comments));

-- Gordon


------------------
$blah='82:84:70:77';
print chr($_) foreach (split/:/,$blah);

Apr 21, 2000, 8:31 AM
Mark Badolato
Veteran (1509 posts)
Apr 21, 2000, 8:31 AM
Post #5 of 6
Views: 4700
Shortcut
Quote Reply
Re: Guestbook ANTI-HACK In reply to
Why would you suggest a setting an array up using spilt, running through a foreach loop, incrementing a counter, and then performing the if, when the simple "if length..." is a simple built in funtion? going though that entire thing is like reinventing the wheel, except sub-optimally.

Benchmark test between the two:

Benchmark: timing 1000000 iterations of foreach, length...
foreach: 171 wallclock secs (170.55 usr + 0.00 sys = 170.55 CPU) @ 5863.38/s (n=1000000)
length: 1 wallclock secs ( 0.78 usr + 0.00 sys = 0.78 CPU) @ 1282051.28/s (n=1000000)

I'd say the length function is juuussssssssst a tad better Smile Smile

--mark
Jun 8, 2000, 11:05 AM
TWTCommish
User (227 posts)
Jun 8, 2000, 11:05 AM
Post #6 of 6
Views: 4650
Shortcut
Quote Reply
Re: Guestbook ANTI-HACK In reply to
Cool stuff, would any of you guys mind if I used a bit of that code in a script I'm toying around with? :)