This wasn't very difficult to make, but I think what it does is pretty cool. You type something in ,hit enter, and it returns the pager code for what you typed in. I tested it on Linux and it worked, so here it is:

#!/usr/bin/perl

print "\nThis program converts A-Z, a-z to pager code. Just type in a 
+word
and press enter. WARNING: Do not be alarmed if some characters appear
upsidedown.\n\n"; 
%code =('A','8','a','8','B','13','b','13','C','6','c','6','D','0','d',
+'0',
'E','3','e','3','F','9','f','9','G','6','g','6','H','4','h','4','I','1
+','i',
'1','J','7','j','7','k','15','K','15','l','1','L','1','M','117','m','1
+17',
'n','17','N','17','o','0','O','0','p','9','P','9','q','0','Q','0','r',
+'12',
'R','12','s','5','S','5','t','7','T','7','u','17','U','17','v','4','V'
+,'4',
'w','44','W','44','x','8','X','8','y','4','Y','4','z','2','Z','2');
while (<STDIN>) {
s/([A-Za-z])/$code{$1}/g; 
print;
print "\n";
}

[download]

-- ZDog (Zenon Zabinski)

In reply to Pager Code Generator by zdog

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.