Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
There's more than one way to do things
 
PerlMonks  

Re: (Golf) mobile phone numbers - words

by the_slycer (Chaplain)
on May 29, 2001 at 20:00 UTC ( #83987=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub num{
    $k=shift;for(@_){chomp;$n=lc;$n=~y/abcdefghijklmnopqrstuvwxyz/22233344
    +455566677778889999/;push@{$h{$n}},$_;$h{$k}
    }
    
  2. or download this
    sub num{
    #23456789_123456789_123456789_123456789_123456789_123456789_123456789_
    +123456789_123456789_123456789_123456789_12345678
    $k=shift;for(@_){$n=$_;chomp;lc;y/abcdefghijklmnopqrstuvwxyz/222333444
    +55566677778889/;push@{$h{$k}},$n if$k=~$_}$h{$k}
    }
    
  3. or download this
    sub num{
    $k=shift;for(@_){chomp;lc;$n=$_;y/abcdefghijklmnopqrstuvwxyz/222333444
    +55566677778889/;push@h,$n if$k=~$_}@h
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://83987]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2014-04-20 03:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls