NAME

Device::KeyStroke::Mobile - Calculate key stroke times with mobile phone keypads

SYNOPSIS

use Device::KeyStroke::Mobile;
my $typing_times = calc_keystroke('example.com');

DESCRIPTION

Device::KeyStroke::Mobile is a module to calculate how many times you need to type keypads in mobile phone to build a word. For example, when you type example.com with a mobile keypad,

e: 3 3
x: 9 9
a: 2
m: 6
p: 7
l: 5 5 5
e: 3 3
.: *
c: 2 2 2
o: 6 6 6 >
m: 6

you need to type keys 21 times.

This module would be useful when you conider taking a new domain name which is easy to type with mobile phones.

FUNCTIONS

This module exports following functions by default.

calc_keystroke

$typing_times = calc_keystroke($text);

takes any text you wish to type in mobile phone and calculates how many typings you need to build it. If $text includes non-allowed characters (see "KEY MAPPING"), it would throw an exception. Note that this function u2c()es $text first, so it ignores cases.

KEY MAPPING

By default this module uses following key mapping:

      <   >

[ 1 ] [ 2 ] [ 3 ]
       ABC   DEF

[ 4 ] [ 5 ] [ 6 ¡×
 GHI   JKL   MNO

[ 7 ] [ 8 ] [ 9 ]
PQRS   TUV  WXYZ

[ * ] [ 0 ] [ # ]
.-@_/

This mapping is defined in $KeyMapping package variable (hash-ref) in Device::KeyStroke namespace. You can modify it like:

$Device::KeyStroke::Mobile::KeyMapping->{1} = q[.@-_/:~];
$Device::KeyStroke::Mobile::KeyMapping->{*} = q[];
$Device::KeyStroke::Mobile::KeyMapping->{#} = q[,!?()#];

AUTHOR

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Text::T9