Hello,
got another hair puller here. we have script setup to process small messages
posted, less the 250 words, and it goes through the message content and runs
each "word" and checks for various unwanted words. It also is setup to check for
possible numerical values, like a phone number or a sequence of numbers between
6 & 11 digits... but ran accross this scenario, which I can't figure out how to
group a sequence of digits that maybe something like this:
my $message = "this is a message with spaced 02 0212 06545 phone number";
my @words = split(/ /,$message);
for my $word (@words) {
if($word =~ /^\d{6,11}$/) { # do stuff here }
# now check non-numerical words
}
After the process is completed we end up with this. What I need to do is if we
have a sequence of numbers like below, then put them all together,02021206545,
then do another numercial check like above, provide each of the numerical $word
are one right after another(in a sequence). Hope this make sense.
# RESULTS AFTER GOING THRU EACH WORD
#Checkword: this
#Checkword: is
#Checkword: a
#Checkword: message
#Checkword: with
#Checkword: 02 # seq 1
#Checkword: 0212 # seq 2
#Checkword: 06545 # seq 3
#Checkword: phone
#Checkword: number
--
Mike(mickalo)Blezien
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Thunder Rain Internet Publishing
Providing Internet Solutions that work!
http://thunder-rain.com/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
