Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/env perl
    
    ...
    print "ASCII Code Value = " . ord($key) . "\n";
    print "Complete Answer = " . $key . $foo . "\n";
    print "You typed a \"$key\"\n";
    
  2. or download this
       print "\n\nANSWER";
       if (defined($default)) {
    ...
           redo;
       }
       chomp($answer = $key . <STDIN>);