Device::KeyStroke::Mobile - Calculate key stroke times with mobile phone keypads
use Device::KeyStroke::Mobile; my $typing_times = calc_keystroke('example.com');
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,
example.com
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.
This module exports following functions by default.
$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.
$text
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:
$KeyMapping
$Device::KeyStroke::Mobile::KeyMapping->{1} = q[.@-_/:~]; $Device::KeyStroke::Mobile::KeyMapping->{*} = q[]; $Device::KeyStroke::Mobile::KeyMapping->{#} = q[,!?()#];
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.
Text::T9
1 POD Error
The following errors were encountered while parsing the POD:
Non-ASCII character seen before =encoding in '¡×'. Assuming CP1252
To install Device::KeyStroke::Mobile, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Device::KeyStroke::Mobile
CPAN shell
perl -MCPAN -e shell install Device::KeyStroke::Mobile
For more information on module installation, please visit the detailed CPAN module installation guide.