[Asterisk-Users] [OT] detect-string.pl

[Jean-Michel Hiver]

Hi List,

I know this a little outside asterisk but I couldn't resist.

I wrote just a little perl toy I wrote to find words in existing phone 
numbers. For example, using the script on Digium's toll free line, you 
discover that it can be 877-LINUX-ME but also 8775-GNU-WOE or 
8775-HOT-ZOE ;-)

Here's the output:

[jhiver at fly jhiver]$ perl detect-strings.pl 8775468963
GNU (468) matches 8775468963
GO (46) matches 8775468963
GOT (468) matches 8775468963
HOT (468) matches 8775468963
IN (46) matches 8775468963
IO (46) matches 8775468963
JIM (546) matches 8775468963
KIM (546) matches 8775468963
KIN (546) matches 8775468963
LIN (546) matches 8775468963
LINT (5468) matches 8775468963
LINUX (54689) matches 8775468963
ME (63) matches 8775468963
MU (68) matches 8775468963
MUZO (6896) matches 8775468963
NU (68) matches 8775468963
OF (63) matches 8775468963
SKI (754) matches 8775468963
SKIM (7546) matches 8775468963
SKIN (7546) matches 8775468963
SLIM (7546) matches 8775468963
SPLINT (775468) matches 8775468963
TWO (896) matches 8775468963
UP (87) matches 8775468963
US (87) matches 8775468963
WOE (963) matches 8775468963
ZOE (963) matches 8775468963

Regards,
Jean-Michel.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: detect-strings.pl.gz
Type: application/x-gzip
Size: 418 bytes
Desc: not available
Url : http://lists.digium.com/pipermail/asterisk-users/attachments/20041202/f268b024/detect-strings.pl.bin