Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

A real challenge

by tachyon (Chancellor)
on Jul 16, 2001 at 16:59 UTC ( [id://97005] : perlquestion . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!"#$%&'()*+,-./0123456789:;<=>?@
    #ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
    ...
    #ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
    #abcdefghijklmnopqrstuvwxyz{|}~
    print "Show me the encoding!\n";
    
  2. or download this
    sub print_enc {
        my $file = shift;
    ...
        }
        print "\nCount $count\n";
    }
    
  3. or download this
    @unencoded = (
    35,33,34,35,36,37,38,39,40,41,
    ...
    65,79,99,); # Count 333 chars
    
    print chr($_) for @encoded;