My Rendezvous with Regex

I cant say how much I love Regex. Regex and Perl are the love of my life (for now). First time experience is using Perl. I remember correctly that I bought small book, very handy. It has all meta characters in it. I'm not really willing to give it up even though never really use it anymore.
Anyway, it started with golden number. Mobile golden number. Nothing will beat it the most except regex. There are 5000 numbers we have to categorize. I can stop feeling amazed of how my colleague did it. He did it one by one using Excel sheet. I can't imagine working with 5000 rows. I probably will have to wear glasses afterward.
I'm sharing this here for you guys who are in the same pain as my colleague. First step to do this is for you to find the algorithm for vanity level. Maybe in the next 5 years, this algorithm we wont need anymore. Why? I have a dream that eventually people will use VoIP rather than phone numbers. It's damn lot easier to just remember yuvi@skype.com rather than 08551100111.
Matches 5 digit
for ($j=0; $j<=9; $j++) { $pattern = '/$j{5}/'; if (preg_match($pattern, $mobilenumber)) $category="5digits"; } Matches XX YY XX
$mobilenum = '08558110011'; $k = 0; $l = $k + 1; $m = $l + 1; $n = $m + 1; while ($n <= 8) { $a =$mobilenum[$k]; $b =$mobilenum[$l]; $c =$mobilenum[$m]; $d =$mobilenum[$n]; $pattern = '/('.$a.$b.')('.$c.$d.')('.$a.$b.')/'; if (preg_match($pattern, $mobilenum)) { $category = "XXyyXX"; } $k++; $l = $k + 1; $m = $l + 1; $n = $m + 1; } Matches XXX d YYY or XXX dd YYY
$c = $mobilenum; $k = 0; $l = $k + 5; while ($l <= 7) { $a = $c[$k]; $b = $c[$l]; $pattern = '/'.$a.'{3}\d{1, 2}'.$b.'{3}/'; if (preg_match($pattern, $c)) { } $k++; $l++; Matches Xy Xy X at the end
$mobilenumber = '08555411001; $k = 5; $l = $k + 1; $a = $mobilenumber[$k]; $b = $mobilenumber[$l]; $pattern = '/('.$a.$b.'){2}'.$a.'/'; if (preg_match($pattern, $row[0])) { $category = "XyXyx"; } Matches AA BB A at the end
$mobilenumber = "08553311001"; $k = 5; $l = $k + 2; $a = $mobilenumber[$k]; $b = $mobilenumber[$l]; $pattern = '/('.$a.'{2}'.$b.'{2}'.$a.'{1})/'; if (preg_match($pattern, $mobilenumber)) { $category="AAbbA"} Matches Xy Xy Xy
$mobilenumber = "08553313131"; $k = 0; $l = $k + 1; while ($l <= 5) { echo "loop - ".$l." <br> "; $a = $c[$k]; $b = $c[$l]; $pattern = "/($a{1}$b{1}){3}/"; if (preg_match($pattern, $mobilenumber)) { $category = "XyXyXy"; } $k++; $l = $k + 1; } Matches XXX d YYY
$mobilenumber = "08554443222"; $c = $mobilenumber; $k = 0; $l = $k + 4; while ($l <= 7) { $a = $c[$k]; $b = $c[$l]; $pattern = '/'.$a.'{3}\d{1}'.$b.'{3}/'; if (preg_match($pattern, $c)) { $category = "XXXdYYY"; } $k++; $l++; } Matches X yyyy X
$mobilenumber = "08551100001"; $c = $mobilenumber; for ($i=1; $i<=5; $i++) { $digit1 = $c[$i]; $j = $i+1; $digit2 = $c[$j]; $pattern = '/'.$digit1.'{1}'.$digit2.'{4}'.$digit1.'{1}/'; if (preg_match($pattern, $c)) { $category = "XyyyyX"; } } Matches X yyyy X
$mobilenumber = "08551100001"; $c = $mobilenumber; for ($i=1; $i<=5; $i++) { $digit1 = $c[$i]; $j = $i+1; $digit2 = $c[$j]; $pattern = '/'.$digit1.'{1}'.$digit2.'{4}'.$digit1.'{1}/'; if (preg_match($pattern, $c)) { $category = "XyyyyX"; } }
And there are a lot more to be honest. And when you're doing this, you have to be very careful. As in access rules, the most specific should be set first, or else, your number will end up having the lowest category.