Hi,
Perhaps I misunderstood the problem but it seems simple with tr///;
Based on this layout
http://upload.wikimedia.org/wikipedia/commons/thumb/d/dd/Mobile_phone_keyboard.svg/559px-Mobile_phone_keyboard.svg
tr/abcdefghijklmnopqrstuvwxyz/22233344455566677778889999/; #
should do the job (case-sensitive)
Regards.
David "Sniper" Rigaudiere
On 13 août 09, at 18:58, andy_b...@wiwb.uscourts.gov wrote:
Seems like this could be fun/golf
----- Forwarded by Andy Bach/WIWB/07/USCOURTS on 08/13/2009 11:57 AM
-----
I am using Active Perl 5.8.8. and Perl Dev Kit 7.0.
I'm writing some code that standardizes the format of phone numbers
in a
database because users have entered them in every way imaginable.
Anyway, some of the phone numbers look like this:
800-69-VORTEX
...where the user has entered alpha characters instead of numbers. My
first thought was to use a hash to do the translation, like this:
%alpha2num =
(
'A' => '2',
'B' => '2',
'C' => '2',
'D' => '3',
.
.
.
...but since the rest of the routine uses only regular expressions, I
thought that it would be nice if this type of translation could be
accomplished with a regex.
I have not been able to think of a way, but I thought I would put it
to
the list to see if anyone else has done this before.
Barry Brevik
_______________________________________________
ActivePerl mailing list
activep...@listserv.activestate.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
