Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
New Game Starting!!!

Enter a guess: q
  2. or download this
     if ($number =~ /[-.]+/)
 if ($number =~ /\D/)
...
    }
probably could add if( $number =~/[-.+\D]/) also to disallow the + sig
+n.
But I don't this minor issue detracts from the main point.