OT: PERL Question

Note that I do all my Perl programming with

I know you can search for groups of three digits, and probably groups of three digits bound by non-digits (I'm pretty sure you can search on "\D(\d \d\d)\D", but I know that "[^0-9]([0-9][0-9][0-9])[^0-9]" will work -- there's probably a way to say "repeat three times" but I don't know it).

I'd identify groups of three, then parse them for value and test with an if statement. I'm pretty sure that making regular expressions to test by value in the text would be exceptionally tedious.

Independent of language, I'm guessing the best answer will be regular expressions. Most all languages support regex. Sadly I don't know them, so I can't compose one offhand.

Hmm, just asked a friend, says a regex would be obscene. Nevermind.

For a heavy weight solution, I wonder if it could be fed into Google Docs and queried with Google search tools? That supports a range search.

Tim

-- Seven Transistor Labs, LLC Electrical Engineering Consultation and Contract Design Website:

"Jim Thompson" wrote in message news: snipped-for-privacy@4ax.com...

Assuming between is inclusive, this, I think:

\D(19[2-9]|2[01][0-9]|22[012])\D

Put your numbers in a hash and test against the hash.

#!/usr/bin/perl

use strict; my %numbers;

foreach my $i ( 110 .. 256 ) { $numbers{$i} = 1; }

while () { chomp;

my $n = $_; print "$n matches\n" if ( $numbers{$n} ); print "$n does not matches\n" if !( $numbers{$n} );

} __DATA__

Why make life so complicated, this works...

(\[192\.119\.(14[4-9])|(15[0-9])\.)

In case you haven't guessed, when I get spam, I look up the originator with NetScanTools and killfile his whole netrange... in Eudora it's called double-trash... I never see them at all ;-) ...Jim Thompson

Interesting discovery as I stop all spam... RHSBL seems to stop most international spam, but US spam seems to "keep on ticking" irrespective of abuse complaints.

So I've been tracking down the URL address ranges of spammers... most comes from a single company in Nevada: ENZUINC-US-BLKxx

Just killfile all their block addresses (*) in Eudora... double-trash... and never seen _at_all_ >:-}

(*) Like:

(\[192\.119\.(14[4-9])|(15[0-9])\.)|(\[195\.230\.31\.)|(\[23\.24[4-5]\.)|(\[45\.62\.(16[0-9])|(17[0-9])|(18[0-9])|(19[0-1])\.)|(\[107\.183\.)

The quiet is deafening ;-) ...Jim Thompson