Re^5: Stopping spam AHHHHH!!!!! (time window)

Well i know once they figure out the telephone numbers are no longer a no-go if your new member with post count less than 10, they will seek other means. But as with any other type of spam, it is a work in progress trying to stop it, and will always need up keep anyway. For me to incorporate this will only add to what is already in place, which works great other than letting telephone numbers through.

dont get me wrong i am not trying to argue with anyone, i just like to debate, mainly because i am learning :P

Comment on Re^5: Stopping spam AHHHHH!!!!! (time window)

Replies are listed 'Best First'.
Re^6: Stopping spam AHHHHH!!!!! (time window) by james28909 (Deacon) on Jun 10, 2015 at 18:41 UTC
Here is another approach that will count the numbers of digits in a given string. `use strict; use warnings; my @count; my $i = 0; while ( my $string = (<DATA>) ) { $string =~ s/(\D+)//g; push @count, split( //, $string ); } for (@count) { ++$i; if ( $i >= 7 ) { print "\n7 or more so send to stop_spam() routine\n"; exit; } } __DATA__ Title: !! back!! 7073347120 FREE VaShiKaRaN SpeCiaLisT IN Allahabad Post: 707334712070733471207073347120707334712070733471207073347120` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^6: Stopping spam AHHHHH!!!!! (time window)
by james28909 (Deacon) on Jun 10, 2015 at 18:41 UTC

use strict;
use warnings;

my @count;
my $i = 0;

while ( my $string = (<DATA>) ) {
    $string =~ s/(\D+)//g;
    push @count, split( //, $string );
}

for (@count) {
    ++$i;
    if ( $i >= 7 ) {
        print "\n7 or more so send to stop_spam() routine\n";
        exit;
    }
}

__DATA__
Title: !! back!! 7073347120 FREE VaShiKaRaN SpeCiaLisT IN Allahabad
Post: 707334712070733471207073347120707334712070733471207073347120
[download]

[reply]
[d/l]