root/Device-KeyStroke-Mobile/trunk/README

Revision 849 (checked in by miyagawa, 17 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 NAME
2     Device::KeyStroke::Mobile - Calculate key stroke times with mobile phone
3     keypads
4
5 SYNOPSIS
6       use Device::KeyStroke::Mobile;
7       my $typing_times = calc_keystroke('example.com');
8
9 DESCRIPTION
10     Device::KeyStroke::Mobile is a module to calculate how many times you
11     need to type keypads in mobile phone to build a word. For example, when
12     you type "example.com" with a mobile keypad,
13
14       e: 3 3
15       x: 9 9
16       a: 2
17       m: 6
18       p: 7
19       l: 5 5 5
20       e: 3 3
21       .: *
22       c: 2 2 2
23       o: 6 6 6 >
24       m: 6
25
26     you need to type keys 21 times.
27
28     This module would be useful when you conider taking a new domain name
29     which is easy to type with mobile phones.
30
31 FUNCTIONS
32     This module exports following functions by default.
33
34     calc_keystroke
35           $typing_times = calc_keystroke($text);
36
37         takes any text you wish to type in mobile phone and calculates how
38         many typings you need to build it. If $text includes non-allowed
39         characters (see the section on "KEY MAPPING"), it would throw an
40         exception. Note that this function u2c()es $text first, so it
41         ignores cases.
42
43 KEY MAPPING
44     By default this module uses following key mapping:
45
46             <   >
47
48       [ 1 ] [ 2 ] [ 3 ]
49              ABC   DEF
50
51       [ 4 ] [ 5 ] [ 6 ¡×
52        GHI   JKL   MNO
53
54       [ 7 ] [ 8 ] [ 9 ]
55       PQRS   TUV  WXYZ
56
57       [ * ] [ 0 ] [ # ]
58       .-@_/
59
60     This mapping is defined in $KeyMapping package variable (hash-ref) in
61     Device::KeyStroke namespace. You can modify it like:
62
63       $Device::KeyStroke::Mobile::KeyMapping->{1} = q[.@-_/:~];
64       $Device::KeyStroke::Mobile::KeyMapping->{*} = q[];
65       $Device::KeyStroke::Mobile::KeyMapping->{#} = q[,!?()#];
66
67 AUTHOR
68     Tatsuhiko Miyagawa <miyagawa@bulknews.net>
69
70     This library is free software; you can redistribute it and/or modify it
71     under the same terms as Perl itself.
72
73 SEE ALSO
74     the Text::T9 manpage
75
Note: See TracBrowser for help on using the browser.